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INTRODUCTION 

This book is a compendium of graphics programs to assist the CBM 
64 user to gain the greatest advantage from his computer. New 
users will find this book of great value once they understand Basic 
computing. 

NICK HAMPSHIRE 
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COLOUR ON THE COMMODORE 64 

INTRODUCTION 

The Commodore 64 has the ability to display a wide range of 
colours, in any one of the three different colour modes. These 
modes range from the Standard 'normal' Display, as seen when the 
computer is on, through to what is known as the Multi-colour 
Mode. In Multicolour Mode, each character can be displayed with 
up to four colours. Finally, in the Extended Colour Mode, the user 
has the ability to control the background colour of any character, 
while using theforeground colour. 

These three modes give the user a choice of different colours for 
visual displays. When not running a program, the user can - using 
the direct mode - access the first 8 colours by holding down the 
'CONTROL' key and pressing any number from 1 through to 8. For 
example; by holding 'CONTROL' and depressing key '5' any 
characters thereafter typed will appear in purple on the screen. 

The second 8 colours are accessed by holding down the 
'Commodore Logo' key, and again, by depressing any key from 1 
through to 8. To display a typed character on the screen, in one of 
the three shades of grey, hold down the 'Commodore Logo' key and 
key 5. 

Afull list of colours is as follows: 
Pressing 'CONTROL' and: 



1 

Black 


2 3 

White Red 


4 
Cyan 


5 
Purple 


6 
Green 


7 
Blue 


8 
Yellow 








ressing 'Commodore Logo' and: 








1 
Orange 


2 3 
Brown Lt Red 


4 
Greyl 


5 
Grey 2 


6 
Lt Green 


7 
Lt Blue 


8 
Grey 3 









HOW COLOUR IS DISPLAYED 

The Colour memory area is called from locations 55296 ($D800) to 
56295 ($DBE7). Unlike most of the other memory areas in the 
Commodore 64, this one CANNOT be moved. These colour 
locations correspond to the usual screen memory locations of 1024 
to 2023. To change the colour of a character stored in the top left 
hand corner of the screen, it is necessary to 'POKE 55296,X' - 
where X is a number from to 15. As a further example, to change 
the colour of a character stored in the bottom right hand corner of 
the screen: 'POKE 56295,X'. As indicated, X must lie in the range of 
to 15, and these numbers relate to the 16 colours mentioned 
earlier. Black is taken to be colour number 0, White colour number 
1, and this continues up to the third shade of grey, which is colour 
number 15. In this way, to produce a PURPLE character in the top 
left hand corner of the screen, one has to 'POKE 55296,4'. 

The above operation changes the foreground colour of the 
character. To change the background colour, memory locations 
53280 and 53281 must be used, being the locations for the border 
colour and background colour 0. The background colours 1 , 2 and 3 
will be dealt with later. 

'POKE-ing 53281' with any number between 0-15 mentioned 
earlier will give a border in the appropriate colour. For example, 
'POKE 53280,4' will give a purple border. To change the background 
of the entire screen display, 'POKE 53281' with a number from to 
15. Using 'POKE 53280,4' and 'POKE 53281,4', both screen and 
border will appear in purple and the screen display will look bigger 
than it actually is. 

In normal High Resolution Mode, control of colour on the screen 
is somewhat limited. Although it is possible to address each dot 
(pixel) in an 8 by 8 character space, if that dot is off, then the dot 
takesthe existing background colour. If it is on, it takes the character 
colour assigned to that screen position. This may sound very good, 
but problems arise when two different coloured lines cross. 

The Multi-colour Mode now becomes important. Each dot, in 
the 8 by 8 character space, can be any one of four colours: the 
screen colour, the background colour 0, the background colour 1 or 
2 (memory locations 53282 and 53283), or the ordinary character 
colour. However, this gain is not achieved without the loss of some 
otherfunction. 



In the Multi-colour Mode, each dot is twice as wide as a dot in the 
high resolution mode. 

Finally, the Extended Background Mode gives control over the 
background and foreground colour of each character. It is possible 
to have a red character with a white background on a black screen. 
This is achieved by control of the four memory locations from 
53281 to 53284, each of which can hold any of the 16 colours. 
Control of the foreground colour is obtained by using the normal 
colour memory, which operates in exactly the same way as in 
normal Colour Mode. 

As shown, the Extended Background may only be used when 
there is a loss of another function. Only the first 64 characters in the 
character ROM, or the first 64 in the programmable character set 
can now be used. 

The Multi-colour and Extended Background Modes are referred 
to later in the text. Their precise working mechanism, and the 
method by which they can be accessed from Basic, will then be 
explained. 



DESIGNING COLOUR DISPLAYS 

Before producing any type of colour display, one needs to have an 
idea of what colours go well together, what restraints there are 
when using combinations of colours, how many colours per 
character space, and so on. 

The following chart will give an idea of what colours are usable 
together on the same line of the TV, and what colours to avoid. 



CHARACTER COLOUR 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 





1 * 

2 

3* 

4* 

5* 

6 + 

7* 

8 + 

9 

10 + 

11 * 
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14* 
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SCREEN COLOUR 



Where '*' indicates 'Excellent' 
Where '+' indicates 'Reasonable' 
Where' 'indicates 'Very Poor' 

Before producing any colour displays, a glance at the above 
chart should give a fair idea of whether the display produced will 
look reasonable or not. 



This, however, is using only one colour per character square 
What happens when using more? 

MORE COLOURS PER CHARACTER SQUARE 

Normally, one uses two colours per 8x8 character square: 
foreground and background. The foreground is set using the 
colour RAM in locations 55296 to 56295 to define the foreground 
colour of each particular square, and the screen background is set 
by 'POKE-ing' memory location 53281 . 

In Multicolour Mode, the screen's resolution is limited to 160 
pixels by 200. In compensation for this, each dot in each 8x8 square 
can be any one of four colours: the screen colour, the colour in 
background registers 1 or 2, and the character colour. 

To control the background colour for each character as well as 
the foreground colour, whilst leaving the overall screen 
background colour unaffected, enter what is known as Extended 
Colour Mode. 
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10 REM COLOUR DEMO 

30 REM 

40 VR=1024 

50 KR=53296 

€0 PRINT'TT 

70 P0KE532S1.1 

80 F0RI=VRT0VR+999 

90 POKE I, 160: NEXT 

100 Z=KR:Q=KR+39 

110 E=KR+96Q:R=KR+999 

120 FORJ=0TO12 

130 PORI=0TO13 

140 X=INT<RND<1>*16> 

150 P0KEZ+J*41+I,X 

160 P0KEQ+J*39-I,X 

165 CI =Z+J*4 1+1*4© 

166 IFCD56295THEN175 
170 POKEC1.X 

175 C1=Q+J*39+I*40 

176 IFC1>56295THEN190 
180 POKECl,X 

190 P0KEE-J*39-H..X 
200 POKER-J*41-I,X 

205 C1=E-J*39-I*40 

206 IFCK55296THEH215 
210 POKEC1.-X 

215 C1=R-,T*41-I#40 

216 IFCK55296THEN230 
220 POKEC1..X 

230 GETfl* : I FFIf O " " THEN270 

249 NEXT 

250 FORK=1TO200^NEXT 
260 NEXT: GOTO 120 

270 PP. IMT " m" ; :P0KE53281- 6 
REFiDV. 
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SETTING COLOUR FROM BASIC 

Simple selection of colour in normal mode can be done via the 
keyboard, as described earlier, or from within a Basic program. The 
latter option will be considered here. 

For the purpose of these examples, consider the screen RAM to 
be occupying memory locations 1024 to 2023. It can be moved 
about within RAM. Colour RAM, as seen, always occupies memory 
locations 55296 to 56295. 

Each of these colour RAM locations is four bits wide, meaning 
that they can contain any integer from to 15, as the Commodore 
64 can use 16 possible colours. 

The Memory location for altering the background colour of the 
screen is 53281, and by 'POKE-ing' this with any integer number 
from to 15, this colour can be changed at will. The following short 
demonstration program runs through all the possible screen 
background colours: 

10 PRINT "(CLR)" : REM CLEAR THE SCREEN 

20 FOR I = TO 15 : REM START OF LOOP 

30 POKE 53281 ,l : REM CHANGE BACKGROUND COLOUR 

40 FOR J = 1 to 1000 : NEXT J : REM DELAY 

50 NEXT I : REM NEXTSTEP IN LOOP 

When run, this program will clear the screen, and then step 
through the 16 possible colours at the rate of about one per second. 
The delay loop in Iine40 is simply to achieve this stepping process. 

When finished, hit 'RUN-STOP/RESTORE' to getthe display back 
to normal again. 

To select the border colour, set memory location 53280 to any 
one of the 16 possible colours. One can alter the above program to 
set the screen background colour to white, and then step through 
all possible border colours. 

10 POKE 53281,1 : REM SET SCREEN COLOUR TO WHITE 

20 PRINT "(CLR)" : REM CLEAR THE SCREEN 

30 FOR I = OTO 15 : REM START OF LOOP 

40 POKE 53280,1 : REM CHANGE BORDER COLOUR 

50 FOR J = 1 T0 1000 : NEXT J : REM DELAY 

60 NEXT I : REM NEXT STEP IN LOOP 

12 



When run, this program will set the screen colourto white, clear 
the screen, and then step through each border colour at the rate of 
about one per second. 

Both these changes can combine to produce a bewildering 
variety of screen/border colour combinations. In the following 
program, no delay loop has been inserted (although a delay loop 
can be inserted by perhaps copying line 50 from the last program), 
and instead, the program just flashes through all the changes. 

10 PRINT "(CLR)" : REM CLEAR THE SCREEN 

20 FOR I = 0T0 15 : REM SET UP SCREEN CHANGE LOOP 

30 FOR J = 0T0 15: REM SET UP BORDER CHANGE LOOP 

40 POKE 53280,J : REM CHANGE BORDER COLOUR 

50 NEXT J : REM NEXTSTEP IN BORDER LOOP 

60 POKE 53281,1 : REM CHANGE SCREEN COLOUR 

70 NEXT I : REM ONCE BORDER FINISHED, CHANGE SCREEN 

AGAIN 

When run, the program clears the screen, steps through all 
sixteen border colours, then changes the screen colour, steps 
through the border colours again, and so on. 

As usual, hitting 'RUN-STOP/RESTORE' will get the screen 
display backto normal. 

The colour RAM is closely linked to the screen RAM. By 
changing any byte of the colour RAM, typing in an integer from to 
15 will change the colour of the character at that particular location 
on the screen. For example, if you have a white screen and a blue 
letter A at screen location 1024, i.e. at the top left hand corner of 
the screen, to change that to a purple A, type POKE 55296, 4. 

The following program fills every character space on the screen 
with a random letter, and then changes that letter to a random 
colour. Using a black border and a white screen, the resulting 
display may not please, but at least gives some idea of how the 
colour RAM works in conjunction with screen RAM. 

10 POKE 53280,0 : REM SET BLACK BORDER 

20 POKE 53281,1 : REM SET WHITE SCREEN 

30 FOR I = 1024 TO 2023 : REM SET UP SCREEN FILL LOOP 

40 POKE I, INT(RND(0.5)*25+1): REM POKE RANDOM LETTER 

ONTO SCREEN 

50 NEXT I : REM NEXT STEP IN SCREENFILL LOOP 
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60 FOR J = 55296 TO 56295 : REM SET UP COLOUR CHANGE 

LOOP 

70 POKE J, INT(RND(1 )*16) : REM POKE RANDOM COLOUR 

80 NEXT J : REM NEXT STEP IN COLOUR CHANGE LOOP 

When run, hit RUN-STOP/RESTORE to get the screen display 
backto normal again. 

One final point. Colour codes, or border changes, or whatever, 
can of course be input into a program and acted upon. The 
following short program asks you to type in a colour for the border 
display, and changes the border accordingly. Typing 16 exits the 
program. 

10 PRINT "(CLR)" : REM CLEAR THE SCREEN 

20 INPUT A : REM INPUT A NUMBER 

30 IF A<0 OR A>16 THEN 20 : REM DON'T ACCEPT INVALID 

INPUT 

35IFA=16THENEND 

40 POKE 53280,A : REM CHANGE BORDER COLOUR AS 

REQUESTED 

50 GO TO 20 : REMBACKANDDOITAGAIN 
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SETTING REGISTERS FOR MULTI-COLOUR MODE 

We have discussed the advantages and disadvantages of 
programming in one or other of the various colour modes 
available. 

Let us now consider the Multi-colour Mode, the methods of 
displaying characters in that mode, the sort of displays that can be 
achieved, and how to interleave this with normal high resolution 
displays. 

First, what, precisely, is the Multi-colour Mode? 

In normal high resolution mode, you can control a screen 
definition area of 320 x 200 pixels, and each of these pixels can have 
two possible colours. Either the upper 4 bits of the video RAM for 
the points, or the lower 4 bits for the background (see section on 
Hi-Resolution Graphics). 

Although this does give a fairly fine control over video output, it 
is not without its limitations. As seen before, certain character 
colours do not go well together, and this can lead to 
problems in high resolution colour displays. Having only two 
colours per character space, one of those must be the overall 
screen background colour. 

To overcome this, enable Multi-colour Mode. This gives each 
dot within a character square the ability to be displayed in one of 
any four colours. The screen colour, or background colour zero 
(memory location 53281), background colours one or two 
(locations 53292 and 53283), or the character colour accessed from 
the colour. 

It is necessary to make one sacrifice, in terms of horizontal 
resolution, as each dot is now double its original width, or, to put it 
another way, the user could have control over a resolution area of 
160x200 dots. 

To enable Multi-colour Mode, set bit 4 of the Vic II control 
register, which sits at memory location 53270 ($D016) to contain a 1 , 
which is done with the following POKE command : 

POKE 53270, PEEK(53270) OR 16 

To turn it off, the same bit must be set to (zero) which is done 
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by. 

POKE 53270, PEEK (53270) AND 239 

Once you have decided to have a multi-colour display, it is the bit 
pattern that goes to make up the character there determining what 
colour(s) that character will be displayed in. Sticking to letter A, 
which in normal mode is made up as follows: 

LETTER BIT DISPLAY 

00011000 

00111100 

.. *. 01100110 

.«». 01111110 

„ ** 01100110 

*. « 01100110 

,* *. 01100110 

00000000 

In normal character mode, or standard high resolution mode, 
the screen background colour shows where there is a O and the 
character colour selected for that square where there is a 1 .In 
multi-colour mode, in which individual dots cannot be addressed 
Td instead, pairs of dots are addressed, the resultant display 
becomes: 



Lbl IbR 
XXYY 
ZZZZ 
XXYYXXYY 


BIT DISPLAY 
00 01 10 00 

00 11 11 00 

01 10 01 10 


XXZZZZYY 
XXYYXXYY 
XXYYXXYY 
XXYYXXYY 


01 11 11 10 
01 10 01 10 
01 10 01 10 
01 10 01 10 
00 00 00 00 



Wherever there is an XX, background colour one will be 
displayed. YY denotes background colour 'two and ZZ denotes the 
charaS colour. Spaces will be displayed as the screen 
background colour : four colours per character square. 

In other words, bit pair 00 represents the screen colour, 01 
background colour one, 10 background colour ttvo and 11 the 
character colour. To recap, these are memory locat.ons 53281, 
53282, 53283 and the colour RAM respectively. 
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Thus, to create a multi-colour display, first of all turn that mode 
on, then simply decide what colour everything is to be. The 
following program should serve as a demonstration of this: 

10 PRINT "(CLR)XXXXXXXXXX" : REM CLEAR THE SCREEN, 

THEN PRINT 10 X'S 

20 POKE 53281,7 : REM SET BACKGROUND COLOUR ZERO TO 

YELLOW 

30 POKE 53282,2 : REM SET BACKGROUND COLOUR ONE TO 

RED 

40 POKE 53283,14: REM SET BACKGROUND COLOUR TWO TO 

LIGHT BLUE 

50 POKE 53270, PEEK (53270) OR 16 : REM TURN MULTI-COLOUR 

MODE ON 

60A=55296 : REM START OF COLOUR RAM 

70 FOR I = TO 9 : REM START OF LOOP 

80 POKE A+1,14 : REM BLUE 'CLAUSE IN MULTI-COLOUR MODE 

90 NEXT I : REM NEXTSTEP IN LOOP 

This program clears the screen and prints up 10 successive X's, 
sets the various background colours, and then changes the colour 
of the X's at the top of the screen. 

Of course, when in Multi-colour Mode, one is no longer putting 
integer numbers in memory locations in colour RAM, but actually 
referencing the bit registers in those locations. Changing one 
register can instantly change every dot drawn in a particular colour. 
Good for fast action arcade graphics! I 

The following program will show how this works: changing 
background colour register number 'one' changes everything 
from (in this case) red to various random colours. 

10 PRINT "(CLR)" : REM CLEAR THE SCREEN 

20 POKE 53270, PEEK (53270) OR 16 : REM TURN ON 

MULTI-COLOUR MODE 

30 POKE 53282,10 : REM BACKGROUND COLOUR ONE SET TO 

RED 

40 FOR I = 1 TO 999 : REM START OF LOOP 

50PRINTX; : REM PRINT X CHARACTER ON SCREEN 

60 NEXT I : REM 999 TIMES I.E. FILL UPTHE SCREEN 

70 A = INT(RND(0.5)*16) : REM PRODUCE A NUMBER FROM TO 

15 

80 POKE 53282,A : REM CHANGE BACKGROUND COLOUR 1 
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M KW J^ T0 1000 : NEXT : REM WAIT FOR ABOUT 1 SECOND 
100 GOTO 70 : REM CHANGE COLOUR AGAIN 

This program clears the screen, prints 999 X's with red 
backgrounds, then changes it all to a random background colour. 
After a delay of approximately one second, the display changes 
again and carries on doing so until the 'RUN-STOP' key is pressed. 
Pressing 'RUN-STOP/RESTORE' should set everything back to 
normal again. 

Knowing now how to create multi-colour displays, and how, by 
selective use of colour RAM, to have a mixture of multi-colour and 
normal high resolution characters on display leaves the third colour 
option, namely Extended Colour Mode. 
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USING EXTENDED COLOUR MODE 

This is the third colour mode of display, one which cannot be used 
with Multi-colour Mode graphics as it affects the whole screen. 
Thus it must be used with care, and for special circumstances only. 

It gives the ability to control not only the background colour of 
the screen, but also the background (and foreground) colour of 
each character displayed on the screen. For example, a red 
character with a yellow background displayed on a blue screen. 

Familiar registers are used to store information about the chosen 
colours, namely background registers 0, 1, 2 and 3 (memory 
locations 53281 to 53284 respectively), with each register capable of 
being set to any one of the usual 16 colours. Not going into 
multi-colour mode here, the colours all have their true displays, i.e. 
11 isthefirst shade of grey ratherthan cyan. 

To select the foreground colour of a character, use the usual 
colour RAM to switch from one colour to another. 

There is one limitation in using extended background colour 
mode (to give it its full title) and this is that only the first 64 
characters stored in ROM, or the first 64 characters in the 
programmable character set, can be accessed since two of the bits 
of the character code are used to select the background colour. 

To give an example, 'POKE 1024,24' and one would expect a 
normal X to appear on the screen. 'POKEing' 1024 with 88 would 
usually bring up a reverse field X, but with Extended Colour Mode 
on, this is not the case, giving instead the same X as before, the 
most awkward to implement. Still, a certain amount of 
experimentation should soon see some very colourful displays. 

To affect the colour of a character 'POKEd' onto the screen with a 
character code range of to 63, alter background colour register 0, 
the range of 64 to 127 for register 1, 128 to 191 for register 2, and 
finally 192 to 255 is changed by background colour register 3. 

Before doing this, one must turn the Extended Background 
Colour Mode 'on'. This is achieved with the following command : 

POKE 53265, PEEK (53265) OR 64 
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and turned off with: 
POKE 53265, PEEK (53265) AN D 191 

This sets bit 6 of the Vic II register at 53265 on and off (or to 1 
and 0) respectively. 

The following program should serve to show how all of this 
might work in practice. 



m PRINT "(CLR)" ■ REM CLEAR THE SCREEN 

20 POKE 53265, PEEK (53265) OR 64 : REM ENABLE EXTENDED 

MODE nnrn 

30 POKE 53280,1 : REM WHITE BORDER 

an POKE 53281 ■ REM BLACK SCREEN 

to POKE 1024,44 : REM PUT AN X IN TOP LEFT HAND CORNER OF 

SCREEN 

60 POKE 55296 1 : REM CHANGE ITTO WHITE 

5S POKE 53282,7 : REM SET BACKGROUND COLOUR 1 TO 

80 POKE 1 024,88 : REM WHITE X WITH YELLOW BACKGROUND 
ON BLACK SCREEN 
90 etc.. .. 

So, simply by changing the appropriate background and 
character colours the user may have a bewildering variety of 
colours on display at the same time. 
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10 REM VOU CFIH REMOVE FILL REMS 

29 REM * SET TO LOWER CASE AMD SET VARIABLES 

30 P0KE53272. 23 1 22=53281 :X=54272 

40 PR I NT "3 8W******* DEMO #*#****" 

50 REM * SWITCH TO EXTENDED COLOUR MODE 

60 P0KE532S5 . PEEK < 53265 > 0R64 

70 FORD=1TO50O t NEXT » REM # DELAV LOOP 

80 REM A2*«"SHIFT SPACES 'FOUR 'SHI FT SPACES" 

90 REM A4*="SHIFT SPACES 'CHANG I NO COLOURS 'SHI FT SPACES" 

100 A 1*=" COMMODORE COLOUR POWER ON VOUR 64" 

110 A2*=" -T,_ " 

120 A3*="a BACKGROUND ■" 

130 A4*="a -\*/\-,a -ar,j ■" 

140 REM * SET BACKGROUNG COLOUR REGISTERS 

150 P0KE22.9 

160 P0KE22+1.4 

170 P0KE22+2.7 

180 POKE2Z+3.0 

190 FORD= 1 TO 1000: NEXT I REM * DELAV LOOP 

200 REM * LOOP TO SET BACK AND FORE COLOURS 

210 FORI-0TO100 

220 REM * SET CURRENT CHARACTER COLOUR 

230 P0KE646.<I+4>RND15 

240 IF<IAND3)=0THENPRINTA1* 

250 IF<IAND3>=1THENPRINTA2* 

260 IF<IAND3>»2THENPRINTA3* 

270 IF<IAND3><3THENPRINTA4* 

280 POKEZZ.I 

290 POKE22+ 1.1+2 

300 P0KE2Z+2,I+3 

310 P0KEZ2+3,I+1 

328 FORD=1TO180:NEXT 

330 NEXT 

340 FORG=0TO3sPOKE22+G.15lNEXT 

350 FORD=8TO3000:NEXT 

360 FORI=0TO70 

370 2=Z2+<IAH03>sREM * DRAWS MOVING BARS 

380 P0KE2.12:REM * DRAW BAR 

390 FORD=lTO200lNEXT 

400 P0KE2,15:REM * UNDRAW BARS 

410 NEXT 

420 REM * RESET COLOUR AND EXIT 

438 P0KE53272 , 2 1 I P0KE53265 , PEEK < 53265 ) AND 1 9 1 

440 END 

READV. 
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1000 REM **************************************** 
10le REM * LOADER FOR A MULT I -COLOUR HI -RES * 
1020 REM * MACHINE CODE ROUTINE TO SET UP THE * 
1^9 REM * HI-RES SCREEN AND PLOT fl POINT USING * 
1040 REM * THE COLOURS AVAILABLE. * 

1060 REM * THE ROUTINES ARE CALLED THUS: * 

1070 REM * SC=SCREEN COLOUR * 

10R0 REM * BC=BORDER COLOUR * 

1990 REM * SVSC 28672 >,SC.BC .,«„-,-., * 

1100 REM * THIS IS TO SET UP THE HI -RES SCREEN * 



me rem mmmMtMrnwrn******.***********'*™*'™ 

1120 REM * PC-POINT COLOUR :FROM 8-15 * 

1130 PEM * BR=BRUSH NUMBER (FROM 0-3 * 

1140 REM * ,0=BACKGROUND COL. * 

1150 REM * POKE 828.BR * 

1160 REM * POKE 829. PC * 

1170 PEM * S VS< 28928 > .X.V * 

80 REM * THIS PLOTS A POINT ON THE SCREEN AT * 
11O0 PEM * COORDINATES X.Y WHERE 0.0 IS TOP LEFT* 
1 200 rIS **************************************** 
2000 1=28672 iT=0:ER=0 
2010 READ A 

2020 IF H>255 THEM 2500 
2030 IF A=-l THEN 3060 
2040 POKE I.AsT=T+A 
2050 1=1+1 
2060 GOTO 2010 

2M0 IF fl T'=A*THEN PRINT-LINES "A*" O.K. » .GOTO 253B 

2520 PRINT-LINES "A*" ENTERED INCORRECTLY »T.A:ER=1 

2530 T=0iGOTO 2010 

3000 I=28923:T=0 

3010 READ A 

3020 IF R>255 THEN 3500 

3030 IF A=-l THEN 4000 

3040 POKEI,AtT=T+R 

3050 1=1+1 

3060 GOTO 3010 

S5 IF fl A=T*THEN PRINT-LINES "A*" 0. K. -. GOTO 3530 

3520 PRINT-LINES "A*" ENTERED INCORRECTLY "T.fi S ER=l 

-3530 T=0:GOTO 3010 

4000 IF ER=1 THEN END 

4010 P0KE51 .0IPOKE52.112 

4020 P0KE55 . : P0KE56 . 1 1 2 

4030 CLR:NEW 

20000 DAT A32 . 253 . 1 74 , 32 . 235 . 1 83 . 1 38 

20010 DflTR141.32.208.165.20.141.33 

20020 D ATA208 , 32 , 49 . 1 1 2 . 32 . 83 . 1 1 2 
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20830 DRTR32. 127, 112. 173. 17.208.9 
20040 DATR32.141 . 17 .203 . 173.24 ,208 
20050 DRTA9.8.141 .24.208.173.22 
20060 DATR208,9,16.141 .22,208.96 
20070 DRTR160,0.169.64.133,87.169 
20030 DATR63 , 1 33 . 83 , 1 69 , , 1 45 , 87 
20090 DRTA165. 87, 240. 5, 198.87.76 
2S095 DRTfl 7511 ."29000-20090" 
20100 DRTR59 . 1 12 . 198 .88 . 165 .88 ,201 
20110 DRTR31 .240.7.169.255,133.87 
20120 DRTR76.59,112.96.160,0.169 
20130 DHTR231.133.87.169.7.133.88 
20140 DRTR169.0. 145.87. 165.87.240 
29150 DHTR5, 193. 87. 76. 93. 11 2, 193 
20160 DRTR88. 165.88.201 .3.240.7 
20170 DRTfl 169. 255. 133, 87. 76. 93. 112 
20130 DRTR96. 160, 0.169. 231 ,133.87 
20190 DRTR169, 219. 133. 88. 169. 0.145 
20195 DRTfl 8541 ,"20100-20190" 
20200 DRTR87, 165,37,240.5. 198.87 
20210 DRTR76 . 137 . 1 12 . 198 .88 . 165 .88 
20220 DRTR201 .215.240.7.169.255,133 
20230 DRTfl87.76. 137. 112.96 
20240 DflTR 3461." 20200-20230 ".-1 
30000 DATA32 . 253 . 1 74 . 32 . 235 . 1 83 , 1 65 
30010 DRTR20.133.89.165.21 .133,90 
30020 DRTfll38.201 ,200.144.2.169.199 
30030 DRTfll33,91 .165,90.291 .1 .144 
30040 DRTR16, 208. 6. 165,89.201 .64 
30050 DRTH144.8. 169,1 .133,89.169 
30060 DRTR63. 133,90. 165.89.41 .7 
30070 DflTR 133. 94. 1-69, 7, 56, 229. 94 
30080 DATA133.94.70.94.6.94.165 
30090 DRTR94. 24. 105.1 .133.95.165 
30695 DRTfl 7708. "30000-30090" 
30100 DATA94.240.9.168.169.1 .10 
30110 DRTfll36,208.252.240.2.169.1 
30120 DRTR133.94.165.95.240.9,168 
30130 DRTR169.1 ,10.136.208.252.240 
30140 DRTA2, 169,1 .133,95.169.0 
30150 DRTA133.92. 133.88. 133.87. 165 
30160 DRTA91 ,41 .7.133.93.165,91 
30170 DRTR74,74,74,133,91 ,160,5 
30180 DRTA24.10,33.88,136,208.249 
30190 DRTA133, 87, 165,91 .160.3.24 
30195 DRTfl 7667," 30 100-30 190" 
30200 DRTR10.136,208,251 ,133,91 ,24 
30210 DATFU01 .87,133,91.165.83,105 
30220 DRTA0 , 133 .92 . 160 .3 .24 .70 
30230 DATR90 , 1 02 . 89 . 1 36 . 208 . 248 .165 
30240 DATA89 . 1 33 . 87 . 1 65 , 90 . 1 33 , 88 
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39250 DRTR160.3.24.6.87,38,88 
30260 DflTfU36 .208 .248 . 160 .8 .24 . 165 
30270 DRTR91.101.87,133,87.165.92 
30280 DHTR101 .88 . 133 .88 . 136 .208 .240 
30290 DRTR24.165,93,101.87,133.87 
382^5 DRTR 7723 . "30200-30290" 
30300 DRTR169. 0.101 -88,24,169.32 
•^er-ilR ORTR101 .88.133.88.24.165.89 
30328 .DRTR181 ,91 . 133 .91 . 169 .0.101 
30338 DRTR92.133.92.173.60.3.201 
30340 DRTR0, 240. 13. 281, 1.240, 32 
303f=:0 DRTR20 1.2. 240. 74. 20 1.3.240 
38360 DRTR 1 04 . 96 . 1 60 . . 1 65 . 94 . 73 
30370 DRTR255 . 1 33 . 94 . 1 65 . 95 . 73 . 255 
30380 DRTR133, 95, 177.87.37.94,37 
30^i=i0 DRTR95. 145.87.96.160,0,165 
30395 DRTR 7569 . "30300-30390" 
30400 DRTR95 .73 ,255 . 133 .95 . 177 .87 
-3041H DRTR5,94.37,95.145,87,169 
30420 DRTR4. 24. 101. 92- 133-92. 14 
30430 DRTR61.3.14.61.3.14.61 
30440 DRTR3.14.61.3.177.91.41 
30450 DRTR15. 24. 109. 61 .3.145,91 
30460 DRTR96. 160.0. 165.94.73.255 
30470 DRTR133.94,177,87,37,94,5 
r^0480 DRTR95 , 1 45 . 87 . 24 . 1 69 . 4 . 1 1 
30490 DRTR92. 133,92. 177,91 .41 ,240 
30495 DRTR 6023 . "30400-30490" 
30500 DRTR24.109,6l,3,145,91 .96 
30510 DRTR160.0.177.87.5.94.5 
3O520 DRTR95. 145.87,169,216,24.101 
30530 DRTR92.133.92.173.61.3,145 
30540 DRTR91 ,96 
30550 DRTR 2788 . "30500-30540" .-1 

READY. 
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1800 REM **************************************** 
1010 REM * THIS PROGRRM IS A SKETCHING MULT I- * 
1020 REM * COLOUR PALLET. IT ALLOWS VOU TO PLOT * 
1630 REM * POINTS ON TO THE SCREEN USING THE * 
1040 REM * CURSOR KEVS IN MULT I COLOUR MODE. * 
1050 REM * THERE ARE TWO SECTIONS OF THE PROGRRM* 
1060 REM * THEV RRE RS FOLLOWS: * 

1070 REM * COMMAND SECTION! IN THIS SECTION, * 
1080 REM * THE USER CRN DEFINE WHICH COLOUR TO * 
1090 REM * WHICH 'PRINT BRUSH'. EXIT PROGRAM. OR* 
1100 REM * CHOOSE TO PLOT POINTS. * 

1110 REM * DEFINE COLOURS IS SELECTED BV * 
1120 REM * PRESSING 'Fl'. MOVE THE CURSOR OVER * 
1130 REM * THE PRLLET USING THE KEVS * 

1140 REM * CURSOR RIGHT TO MOVE IT TO THE RIGHT * 
1150 REM * CURSOR DOWN TO MOVE IT TO THE LEFT * 
1160 REM * WHEN THE CURSOR IS IN POSITION. * 
1170 REM * PRESSING 'F3' SELECTS THAT COLOUR. * 
1180 REM * THEN ONE OF KEVS 1.2.3 ARE PRESSED TO* 
1190 REM * SET THAT COLOUR TO THAT BRUSH. * 
1200 REM * THE SECOND SECTION IS THE PLOT * 
1210 REM * TO PLOT POINTS, PRESS THE KEV 'P' * 
1220 REM * POINTS SECTION. 

1230 REM * R BRUSH MRV BE SELECTED RT RNV TIM*. * 
1240 REM * BV PRESSING THE CPORRESPONDING KEV. * 
1250 REM * THE CURSOR KEVS MOVE THE HIRES CURSOR* 
1260 REM * TO EXIT PLOT MODE. PRESS THE RETURN * 
1270 REM * KEV. * 

1280 REM * TO EXIT THE PROGRRM COMPLTELV , * 
1290 REM * PRESS RETURN WHEN IN COMMAND MODE * 
1300 REM * * 

1310 REM * THIS PROGRAM USES THE MULTI-COLOUR * 
1320 REM * HI -RES MACHINE CODE ROUTINES. * 
1330 REM **************************************** 
1340 B=8192 

1350 INPUT'TJSCREEN COLOUR" sN 
1360 SVS28672.N.N 

1370 DEFFNP<:ZZ>=B+INT<:X/8>*8+INT<V/e>*320+<VRND7> 
1380 DEFFNK<:ZZ)=55296+INTc:X^S) + INTCV/S>*40 
1390 GOSUB 1 970 :GOSUB 1870 
1400 GETfl*:IFR*=""THEN1400 
1410 IF R*="B" THEN 1490 
1420 IF Rf=CHR*03> THEN 1950 

m if »:-"?-" ffii« ma 

1450 IF fl*="2" THEN BR=2 

1460 IF A*="3" THEN BR=3 

1470 IF A*="P" THEN 1670 

1480 GOTO 1400 

1490 1=0 

1500 V»192:X=I*16+40 
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1519 POKE FHK<0>,N 
1529 FOR J=l TO 50 

1539 GET ft*! IF fl*0""THEN 1550 

1540 NEXT ,T 

1550 POKE FHK<0> -I 

1560 IF R*="S"THEN 1=1-1 

IS If SCTES cl=IUke fhk«>.i.«™ i 62 

1590 IF I<0 THEN 1=0 

1609 IF IMS THEN 1 = 15 

1610 GOTO 1500 

1620 GET fi*sIF R*="" THEN 1628 

lS-W IF fl*="l" THEN COL<l>»CL 

1640 IF fl*="2" THEN C0L<2>=CL 

1650 IF R*="3" THEN C0L<3>=CL 

1660 GOSUB 1870: GOTO 1400 

1670 X=XXsV=VV 

1680 POKE828.0iSVS28928.X-V 

1 700 P0KE828 . BR : P0KE829 . COL < BR > I SVS28928 , X .V 

1710 IF fi*="" THEN 1680 

1720 IF R*="0" THEN BR=0I GOTO 1680 

1730 IF fi*="l" THEN BR»1 1GOTO1630 

1740 IF R*="2" THEN BR=2 [GOTO1680 

1750 IF R*="3" THEN BR=3 i GOTO 1630 

1760 IF fl*="W" THEN V=V+1 

1770 IF V>183 THEN V=183 

1780 IF R*="H" THEN V=V-1 

17<*n IF V<0 THEN V=0 

1800 IF A*=»"M" THEN X=X+2 

1810 IF X>319 THEN X=319 

1820 IF R*="H" THEN X-X-2 

!5S !f R*=CHR*a3f THEN XX=X:W=V ,0OTO 1400 

ls50 P0KE828VbR:POKE829.COLCBR) .SVS2S928.X.V 

I860 GOTO 1680 

1870 FOR 1=1 TO 3 

18ff0 V=184:X=16*I+43 

1890 POKEFHK (. > . COL < I > 

1900 FOR J=0 TO 7 

1910 POKEFNP<0>.£55 

1920 V=V+1 :NEXT J 

1939 NEXT I 

1940 RETURN 

1950 P0KE c i32' !: ;5.27:P0KE53272.21 

lltl FOKE53i70:200 1 POKE53281 ,6.PRINT»:T .END 

1970 FORI=0TO15 

1980 X=16*I+40 

1990 V=192:POKEFNK<0) -I 

2009 FORJ=0 TO 7 

2010 POKEFNP<0>.255 
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2020 V=V+1 
2030 NEXT J 
2040 MEXT I 
2050 RETURN 
READY. 



This program will sometimes appear to be faulty. It is in fact 
working, but the pixel colour needs to be changed so that it is 
visible (i.e. press "1"). 
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HIGH RESOLUTION GRAPHICS 

Given the amount of memory 'on board' the 64, it is a pity that there 
Se no High Resolution Graphics commands directly available to 
?hl user In this section is a basic loader for a standard Hi-Resolut.on 
araohfcs package. The package consists of four routines in 
Si- code wnich, when cal.ed with the appropriate parameters 
'POKE'd' into the 64 and the correct 'SYS call, will. 

( 1 ) Set up the hi-res screen, 

(2) plot a single point, 

(3) plot a line between two points, 

(4) and plot characters on the screen at any co-ordinate. 
PRINCIPLES OF HI-RES GRAPHICS 

The rest of the section takes a look at how the hi-res routines are 
done. This will be split up into the four routines as mentioned 
above. 

(1 ) Set up the hi-res screen: 

Thisisthe easiest of the routines, it can bedivided into three parts: 

(a) The first part sets the video memory to the desired colour 
combination. The hi-res colours are taken from the character 
displayed on the video screen, the screen colour is taken from the 
lower four bits, and the point colour from the upper four bits of the 
character stored in the RAM. Thus, if character 1('A) is used 
then the displays at that character position would be a white 
background with black points. To determine the character number 
from the required colours, if we let SC=the screen colour and 
PC=the point colour, then the character number to be POKE d 
would be SC+16*PC. 

(b) The second part clears the hi-res area of memory. This is an 8K 
block where points will be plotted. Using backO,this memory block 
is from 8192 ($2000) to 1 6 1 9 1 ($3F3F). To clear this a loop for 
8000 will be needed and zero will have to be 'POKE'd' into each 
location in the hi-res area. 

(c) The final part sets up the registers to intialise the Hi-Res mode. 
30 



There are two 'POKE's' required to do this, these are: POKE 
53265,PEEK(53265)OR32 which puts the 64 into bit mapped mode 
and POKE 53272,PEEK(53272)OR8 which places the start of bit map 
memory at 8192. 



BASIC VERSION OF SET UP ROUTINE 

10 SC=12sPC=6 

£0 FOR 1-1024 TO 2023 

30 POKE I,SC+PC*lfi 

40 NEXT 

50 FOR I«=8192 TO 16191 

60 POKE I ,0 

70 NEXT I 

80 POKE 53263. PEEK < 53265 >0R32 

90 POKE 53272. PEEK < 53272 >0R8 

REflOV. 
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In Multi-Colour Mode, there is a choice of four colours for each 
character The video memory contains information on two of the 
fsh colour nybble memory indicates the third colour and 
?he screen colour register (53281) is the screen co tour. An extra 
'POKE' is required to select Multi-colour Mode, this is. POKE 
53270,PEEK(53270)OR16. 

(2) Plot a point at the desired X,Y co-ordinate. 

This routine involves calculating the location in the bit mapped 
Leen memory where the point is to be plotted the bit required 
and then 'POKEing' to that byte to turn on the calculated bit. 
AthougKthTsLeLndcolourcombinationshav^ 
the set up routine, other colours may be required for plotting, rather 
than the P po °nt colour previously set up. This is done by calculating 
the byte on the video memory where the point occurs and 
changing the lower four bits to the required colour vehicle. If the 
£eKr bits are changed, the character positjor , containing the 
point will have a different background colour A last note on this 
£rin?is that the convention of 0.0 being TOP eft ^corner instead of 
bottom left corner has been used for ease of calculation. 

All calculations are shown in the following basic isting. Note that 
this pmgram will not work alone, it has been written for ease of 
understanding of the techniques. 

1MB DEF FNP<ZZ>=9192+INT<X/8>*8+INT<V/8>*320+<VflHO?> 
1010 DEF ™C<ii>=1024 +I MT<X/8>*INT<V/S>*40 

1029 X=<X COORD>:V=<V COORD> 

1030 flO=<flDO OR DELETE POINT> 
1040 PO<POINT COLOUR> 

10-10 IF X<8 OR X>319 THEN 1168 
10*0 IF V<0 OR YM 99 THEN 1168 
1070 IF FID=1 THEN 1110 
1088 BI=?-<XRND?> „ Q „*r>i 

1098 POKE FNP<e>.PEEK<FNP<8>>0R2tBI 

1108 GOTO 1130 

} l 1 2SS"S5!E!pHB«FHP<e»««» 5 -<2tei> 

1138 SC=PEEK<FNC<8>)RND15 

1140 C0L=SC+PC*16 

1150 POKE FNC<0>-COL 

1168 RETURN 

REflDV. 
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In Multi-Colour Mode, each point takes up two bits of the bit map 
like this: 

BITS COLOUR FROM 

00 Screen colour register (53281 ) (no point), 

01 Upper4 bits of video memory, 

10 Lower4 bits of video memory, 

11 Colour nybble memory. 

This means that the byte calculation stays the same but the bit 
calculation is a little different. Instead of the bit calculation being 
7-(XAND7), the easiest way is to calculate the lower of the two bits 
and then plot each point. The calculation isBI=INT(7-(XAND7)/2)*2 
and the two bits to be plotted are Bl and BI+1. Because of the 
double byte plotting, the x resolution has been halved from 320 
pixels to 160 but they resolution stays at 200 pixels. 

There are two more routines, they plot a line and plot a character. 
Both routines use the point plot routine to display on the screen but 
each has useful calculations that must be mentioned. 

(3) Plot a line between two sets of co-ordinates. 

2009 X1=<X START OF LINE>iVl»<V START OF LINE> 

2019 X2=<X END OF LINE>iV2=<V END OF l_IME> 

2020 FID=<flOD OR DELETE LINE> iFCXCOLOUR OF LIHE> 
2030 XD=X2-X1 

2040 VD=V2-V1 

2058 fl0=l :fll=l 

2868 IF VD<0 THEN Fl0=-1 

2070 IF XD<0 THEN fll=-l 

2080 XE=flBS<XD> :VE=RBSCVD> :Di=XE-VE 

2090 IF D1>»0 THEN 2130 

2100 S0=-1 iSl-0:LG=VEiSH=XE 

2110 IF VD>0 THEN S0=1 

2120 GOTO 2150 

2130 S0=0:S1=-1 sLG=XE:SH-VE 

2140 IF XD>=0 THEN Sl=l 

2 1 50 TT=LO : TS=SH i UD=LG-SH s CT-SH-LG/2 

2160 D=0 

2178 X=X1 :V=V1 

2180 GOSUB 1050 

2190 IF CT>0 THEN 2220 

2200 CT=CT+TS:X=X+S1 iV=V+S0 

2210 GOTO 2230 

2220 CT=CT-UDiX=X+fll :V=V+R0 

2238 TT=TT-1 

2240 IF TT<=0 THEN 2260 

2250 GOTO 2180 

2260 RETURN 

REflDV. 
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The line plot routine is no different whether in Standard Hi-Res 
Mode or in Multi-Colour Mode, but the character plot routine must 
be enlarged on the x axis by changing line 330 from X1 -XI + 1 to 
X1=X1+2. 

(4) Plot a character at x,y screen co-ordinates with the top left corner 
of the character at these co-ordinates. Thtaroujne converts ; the 
ASCII character values into the equivalent 'POKE' value, reads he 
character from the character ROM, and plots each poirrt .of the 
character onto the screen. It must be noted, however, that none of 
the Commodore graphics characters or the lower case characters 
are available. Other than that, any letter, number, or other standard 
character is available. 

jam r,FF FHP<ZZ>=8192+IHTW8>*8+IMTW8>*320+<YflND7> 

2S R*=»<STRING>":X=<X COORD> 8 V.<V COORD> 

4020 XX=<X STEP>»VV=<V 8TEP> 

40-30 FOR 1 = 1 TO LEH<fi*> 

4040 B*="MIO*<fl*.I'l>' B=flSC < B * > 

40^0 V lF = l<32 THEN NEXT I :GOTO 390 
4070 IF B>31 AND B<64 THEN fl-B 
lake, TF B<61 AND B>96 THEN R=B-64 
till F till THEN NEXT I .GOTO 390 
4100 B=g*8:0EN=fl+53248 
4110 FOR J=0 TO 7 

4130 POKE 56334. PEEK < 56334 >RHD254 

4140 POKE 1,PEEK<1>RN0251 

4150 Z»PEEK<GEN<J>> 

4160 POKE 1,PEEK<1>0R4 

4170 POKE 56334, PEEK < 56334 > OR 1 

4180 PNX-128 

,,(,!> ir <PHKfiNDZ>=0 THEN 4210 

t™ POKE FNP<0> .PEEK<FHP<0> >0R2f <7-<XlflN07> > 

4218 PNX=IHT<PNJi/2> 

4220 IF PNX<1 THEN 4250 

4230 X1=X1+1 

4249 GOTO 4190 

4250 V1=V1+1 
4260 NEXT -J 

4270 X=X+XX»V=V+VV 
4280 NEXT I 
4290 RETURN 
RERDV. 
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10 REM ****************************************** 
20 REM * THIS IS THE COMPLETE HI-RES PACKAGE. * 
30 REM * IT COMPRISES OF ROUTINES TO * 

49 REM * 1> SET UP GRAPHICS MODE, * 

50 REM * 2) PLOT A POINT FIT THE DESIRED X.V * 
60 REM * COORDINATE OH THE SCREEN WHERE * 
70 REM * TOP LEFT COORDINATES RRE O.0, * 
80 REM * 3) DRAW A LINE BETWEEN TWO POINTS ON * 
90 REM * SCREEN. * 
100 REM* 4) PLOT UP CHARACTERS ON THE SCREEN * 
110 REM* AT THE DESIRED X.V COORDINATES OF * 
120 REM* THE TOP LEFT POINT OF THE CHARACTER.* 
1 30 REM****************************************** 
140 REM* 1) THIS ROUTINE IS SPLIT UP INTO THREE * 
150 REM* PARTS. THE FIRST CLEARS THE 8K BIT * 
160 REM* MAP MEMORV, THE SECOND SETS THE * 
170 REM* COLOUR COMBINATIONS FOR SCREEN AND * 
180 REM* POINT COLOUR. ANO THE THIRD SETS THE* 
190 REM* REGISTERS FOR BIT MAP MODE. * 
200 REM* THE ROUTINE IS CALLED BV * 
210 REM* POKE 89.SC+16*PC CSC-SCREEN COLOUR)* 
220 REM* <PC=POINT COLOUR ) * 
230 REM* SVS<23672). * 
240 REM* THE FIRST TWO PARTS MAV BE CALLED OH* 
230 REM* THEIR OWN WITH * 
260 REM* A) SVS< 28704) * 
270 REM* B) THE ABOVE POKE FOLLOWED BV * 
280 REM* SVS< 28743) * 
290 REM****************************************** 
300 REM* 2) THIS ROUTINE PLOTS A POINT ON THE * 

SCREEN WITH THE DESIRED COLOUR * 
IT IS CALLED BV 

POKE 89.X-INT<X/256)*256 

POKE 90,INT<X/256) 

POKE 91 ,V 



310 REM* 
320 REM* 
330 REM* 
340 REM* 
330 REM* 
360 REM* 
370 REM* 
380 REM* 
390 REM* 



POKE 784. AD 

POKE 879, PC 
SVS< 28782 ) 



<AD 
< 



=1 FOR PLOT. ) 
»2 FOR DELETE) 



400 REM****************************************** 
410 REM* 3) THIS ROUTINE DRAWS A HI -RESOLUTION * 
420 REM* LINE ON THE SCREEN BETWEEN TWO SETS * 
430 REM* OF COORDINATES IN THE DESIRED COLOUR* 
440 REM* IT IS CALLED BV * 

450 REM* POKE 828 ,Xl-INT<Xl/256)*236 * 
460 REM* POKE 829 , I NT <X 1/256) * 

470 REM* POKE 830. VI ! POKE 831.0 * 

480 REM* POKE 832 .X2-INT<X2/256)*256 * 
490 REM* POKE 833 . INTCX2/256) * 

508 REM* POKE 834. V2: POKE 835.0 * 

510 REM* POKE 786, AD * 
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520 REM* POKE 879. PC * 

*f* reMl***************************************** 

-M REM* 4* ROUTINE TO PLOT ft CHARACTER ON THE * 

til REM* SCREEN WITH X.Y THE TOP LEFT CORNER * 

570 REM* OF THE CHARACTER. * 

580 REM* IT IS" CALLED BV * 

"190 REM* FOR 1 = 1 TO LEN<B*> * 

600 REM* R*=MID*<B*.I,1> * 

61" p!m# POKE 866.X-INT<X/256>*256 * 

628 PEM* POKE 8S7.INTW256> * 

630 REM* POKE aSS.YiPOKE 869.0 » 

640 REM* POKE S70.ASC<A*> * 

650 REM* POKE 871 .RH " 

660 REM* POKE 879, PC * 

670 REM* POKE 784. AD * 
680 REM* SVS< 29749? 

690 REM* X-X+XXiV-V+VV * 

700 REM* NEXT I # 

-iS pfm* WHERE B* IS THE CHARACTER STRING TO * 

,28 REM* "£ ofriTTFn XX I*. THE X STEP BETWEEN* 

III REM* L E ETTERS T FROM LEFT To'rIOHT AND VV IS* 

£t «m* THE V =TEP FROM TOP TO BOTTOM. * 

1000 I=28672:ER=0:CT=0iPRINT"H" 

1010 T=0 

1020 READ A 

1040 IF A>255 THEN 2000 

1050 IF A=-l THEN 3080 

1060 T»T+A:POKE I .A 

1070 1=1+1 

1080 GOTO 1020 

2O00 REM 

2010 IF T=A THEN 2O20 

„„„ pc.Ti.iT"t INES"20S00 + CT"- ! 

^ PR N? 2 0005 + CT + 90.T. A, ER-1. GOTO 2030 

2020 pRlNT"LINES"20000 + CT"-"20000 + CT + 90"O.K.n 

2038 CT=>CT+100 

2040 GOTO 1010 

3000 IF ER-1THENEND 

^010 POKE51.0:POKE52.112 

^20 POKE55.0:POKE56 112:CLR:NEW 

28000 DATA72 . 138 .72 . 52 .72 .32 .32 
20010 DATA1 12-32. 71. H2.173.17..08 
20020 DATR9. 32. 141. 17. 208. 173. 24 
200^ DATA208 .9 .8 . 141 .24 208 104 

20040 DATA168 . ^-i^'^U^skl 
20050 DAT A64 . 1 33 . 87 . 1 69 . 63 . 1 --io ; 88 

2 K DATA169. 8.145. 87 165 87 240 
20078 DATA5. 198.87.76.42. 112. 198 



36 



28080 ORTR88.165.88,201,31 ,249-7 
26096 DfiTR169.255.133.8?,?6.42.112 
20995 DRTR751S 

28100 DRTR96, 160. 0.169. 231 ,133,8? 
20110 DRTR169.7. 133.83. 163.89, 145 
20120 DflTR87.i65,87.240.5,198,87 
20130 GRTR76,81,112,193,88.165.38 
20140 DRTR201 .3.240,7.169,255.133 
20150 DRTR37.76.81 ,112.96,72.152 
20160 DRTR72.138.72.160.0.24,132 
20170 DRTR133, 95. 165.90.201 .1 .144 
20180 DRTR12.201 ,1 .208.6.165.89 
20190 DRTR201 ,64,144.2,230.95.165 
20195 DRTR8063 

20200 DRTR91 .201 .200.144,2,230,95 
20210 DRTR165,95,240.6.104.170.104 
20220 DRTR168.104.96.165.89.41 ,7 
20230 nRTRI.3^,94 . 169 .7 .56 .229 .94 
20240 DRTR133.94,240,9,163,169,1 
20250 DRTR1 0,136.208.252.240.2,169 
20260 DRTfll ,133.94,165.91 .41 ,7 
20270 DRTR133. 93. 165.91 ,74.74.74 
20280 DRTR133.95.133.92.141 ,109,3 
20290 DRTR169. 0.133.91 .133.96,141 
20295 DRTR7835 

20300 DRTR110,3.160,6,24.6.95 
20310 DRTR1 76, 7, 6, 96, 136,208,246 
20320 DRTR240 , 6 , 6 , 96 , 230 . 96 , 208 
20330 DRTR245 , 24 , 1 65 . 9 1 . 1 1 . 95 . 1 33 
20340 0RTR91 ,165".92.101 .96.133.92 
20350 DRTR160,3.24.70.90.176,7 
20360 DRTR70 , 89 . 1 36 , 208 . 246 , 240 . 1 
20370 DRTR70 .89 , 165,89 .9 . 128 . 133 
20380 DflTR89.206.241 ,165.89.141 .108 
20390 DRTR3,160,3.24.6,89.176 
20395 DRTR7499 

20400 DRTR7, 6. 90, 136. 208. 246, 240 
204 1 DRTR6 , 6 , 90 , 230 , 90 . 208 . 245 
20420 DRTR1 69,0 . 133 .87 . 133 .88 . 165 
20430 DRTR93.24.101 .91 .133.87.165 
20440 DRTR88.101 .92.133.88.165,87 
20450 DRTR24.101 .89.133,87.165.88 
20460 DRTR101 ,90.24,105,32,133,88 
20470 DRTR24,160,0,173,16.3,240 
20480 DRTR15.169.255,69,94.133,94 
20490 DRTR177,87.3?.94,145.87.56 
20495 DRTR7419 

20500 DRTR176.6 , 177,87 ,5 .94 , 145 
20510 DRTR87 , 173 . 108 .3 . 133 .89 . 169 
20520 DRTR0. 133.90. 133,91 ,133.92 
20530 DflTR24,14.109,3,14.109.3 
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20540 DRTR14.109.3.173.109.3.133 
20558 DRTR91.24,14.109.3.46.118 
20560 DRTR3.24.14.109.3.46.110 
20579 DRTR3.173.109.3.24.101.91 
20588 DRTR133.91.173.110,3.101-92 
20590 0RTR133 .92 .24 , 169 ,0 . 133 .8? 
20595 DRTR5495 

20600 0RTR133 .88 . 165 .89.24 ,101 .91 
20610 DfVTfU33.87.163.92.101.83.24 
20620 DRTR185.4.133.88.173,111.3 
20630 DflTfU0.18.10.10'l 41 - 112 - 3 
20640 0RTR168. 0.177. 87. 41 .15.13 
20658 DRTR112.3.145.87.169.1.141 
20660 DRTR17.3,169.0.133.95.104 
20678 DRTR170 . 104 . 168 . 104 ,96 . 189 .0 
20680 DRTH2.201. 32. 288. 1.232. 189 
28698 DRTR8.2.240.72, 138.72. 152 
28695 DRTR6338 

20708 DRTR72 , 173 .64 .3 .56 ,237 .60 
20718 DRTR3,141.68,3,173,65.3 
20728 DRTR237.61.3.141.69.3.173 
20738 DRTR66.3.56,237,62.3,141 
20740 DRTR70. 3. 173.63.3,237.67 
20750 DRTR3,141.71.3.169,1.141 
20760 DRTR94. 3, 141 ,96.3,169.0 
20770 DRTR141 ,95,3,141 ,97,3,173 
207R0 DRTR71,3.41.128.240,8,169 
20798 DRTR255.141 ,94,3,141,95.3 
20795 DRTR6072 

28800 OBTAIN, 69, 3. 4 1,1 28. 248. 8 
20*10 DRTR169.255.141 .96.3,141 .97 
2O820 DRTR3. 173, 69, 3, 41. 128, 248 
20830 DRTR30. 173 .69 . 3 .73 .255 . 141 
20840 0RTR73 .'3,24,173. 63. 3. 73 
20R5.Pi DRTR255 . 103 . 1 . 141 .72 .3 , 1 , 3 
20868 DRTR73.3.105,0.141,73,3 
20870 DRTR76, U2,U4. 173. 68. 3, 141 
20RS0 DRTR72.3,173.69,3,141.73 
20390 DRTR3. 173,71, 3, 41. 128. 248 

20895 DRTR6418 

20980 DRTR30. 173.71 .3.73.255. 141 
20=110 DRTR73.3,24,173,70.3,73 
20920 DRTR255 . 105 , 1 , 141 ,74 .3 . 17- 
28930 DRTR75,3,105.0.141.75.3 
2*940 DRTR76.161.114.173.70.3.141 
20950 DRTR74.3,173.71.3.141,75 
20^60 DRTR3. 173.72.3.56.237.74 
2R970 DRTR3,141,88.3.173,73.3 
209R0 DRTR237, 75, 3, 141 .89.3.41 
20990 DRTR128.240,68.169,255,141.90 
20995 DRTR6373 
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21000 DRTR3, 141 ,91 .3,169,0.141 
21010 DRTR92. 3. 141 .93.3.173.74 
21620 DRTR3. 141 .76,3,173,75,3 
21030 DRTR141 ,77,3.173.72.3.141 
21040 DRTR78, 3. 173. 73. 3, 141, 79 
21650 DRTR3.173.71.3.41.128.208 
21860 ORTR70. 169.1 .141,90,3,169 
21070 DRTR0. 141 .91 .3.76.45,115 
21080 DRTR169,0, 141 ,90,3.141 .91 
21090 DRTR3, 169.255. 141 ,92,3.141 
21095 DRTR5941 

21100 DRTR93.3. 173.72.3. 141 .76 
21110 DRTR3. 173.73.3. 141 .77.3 
21120 DRTR173.74.3. 141 .78.3.173 
21130 DRTH75,3.141,79.3.173,69 
21140 DRTR3. 41 ,128.208.10.169,1 
21150 DRTR141 ,92.3,169.0-141,93 
21160 DRTR3.173.76.3.141 ,82,3 
21170 DRTR173.77.3. 141 .83.3.173 
21180 DRTR78.3.141 .80.3,173.79 
21190 0RTR3. 141, 81 .3,173,76,3 
21195 DRTR5592 

21200 DRTR56.237,78,3.141 .84,3 
21210 DRTR173.77.3.237.79.3.141 
21220 DRTR35. 3. 78. 77. 3. 110. 76 
21230 DRTR3. 173,78.3.56.237,76 
21240 DRTR3. 141 ,86,3,173,79.3 
21250 DRTR237.77,3.141.87,3.173 
21260 DRTA18.3.141 .16,3.173.60 
21270 DRTR3. 133.89. 173.61 .3.133 
21280 DRTR90.173.62.3.133.91 .32 
21290 DflTRl 10. 112. 173. 87. 3. 41. 128 

21295 DRTR5829 

21300 DRTR240.60.173.86.3.24.109 
21310 DRTR30.3.141.86.3.173.87 
21320 DRTR3, 109. 81 .3.141 .87.3 
21330 DRTA173.60.3-24, 109.92,3 
21340 DRTR141 .60.3.173.61 .3.109 
21350 DRTR93. 3. 141 .61 .3.173.62 
21360 DRTR3.24.109.90.3.141 .62 
21370 DRTR3.173.63.3.109.91.3 
21380 DRTR141 .63.3,76.5.116.173 
21390 DRTR86.3.56.237.84.3.141 
21395 DRTR5309 

21296 DRTR86,3.173,87,3.237.85 
21410 DRTR3. 141 .87.3.173.60.3 
21420 DRTR24.109.96.3,141,60,3 
21430 DRTR173, 61 .3.109,97.3.141 
21440 DRTR61 .3,173.62,3.24,109 
21450 DRTR94.3.141 ,62,3.173,63 
21460 DRTR3.109,95,3,141,63,3 
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21470 DRTR173.82.3.56.233.1.141 
21480 DRTR82.3.173.83.3.233.0 
21490 DRTR141 .83.3.173.17.3.240 

P14Q5 DRTR5434 

1 500 DRTR4.165.95.208. 16 173.83 
21510 DRTR3, 240. 3. 76. 119. 115.173 
21520 DRTR82.3.240.3.76.119.115 
21530 DRTfll04.168.104,170.104,96,72 
21548 DRTR152.72. 138.72. 173. 103.3 
21550 DRTR240.5.169.255.141 .103.3 
21560 DRTPI173.102.3.201.31.176.3 

21579 DRTR76 . 18 . 1 17 .201 .64. 144 . 14 

21580 DRTR24.201.96;144.3.76.18 
21590 DRTR117.56.233.64.141.102.3 

21595 DRTR7159 

21600 DRTR169.208. 133.252. 169.0.133 
21610 DRTR251.173.102.3.160.3.24 
21620 DRTR10.141.102.3.165.252.1Q5 
21630 DRTR0. 133.252. 173. 102.3. 136 
21640 DRTR208.239.133.251.169.8_.141 
21650 DRTR106.3.173.14.220.41.254 
21*60 DRTR141 .14,220.165.1.41 .251 
21670 DflTR133.1.160.6.17V- 251 - 141 
21630 DRTR102.3.165.1.9.4.133 
21690 DRTfll.173.14.220.9.1.141 

21695 DRTR7989 

21760 DRTR14. 220. 173.103.3.240.6 
21710 DRTR77.102.3.141.102.3.1^3 
21720 ORTR99.3.141.105.3.173.9& 
21730 DRTR3. 141. 104, 3, 169. 123. 141 
21740 DRTR107.3. 173. 102.3.45. 10^ 
21750 DRTR3. 240. 18. 173, 104. 3. 1^3 
217*9 DRTR89 ; 173 . 105 .3 . 133 .90 . U3 
21770 DRTR100. 3. 133. 91 .32.110.112 
21780 DRTR78.107.3.240.20.173.104 
21790 DRTR3.24.105.1.141.104.3 
21795 DRTR6338 

21800 DRTfU 73. 103. 3. 105. 0.141. 103 
21816 DRTR3. 76. 196. 116. 165. 251. 24 
21820 DRTR105. 1,133.251. 165. 252.105 
21830 DRTR0. 133. 252. 24. 238. 100. 3 
21840 DRTR176.8.206.106.3.240.3 
21858 DRTR76 . 133 . 1 16 . 104 . 170 . 104 . 168 
21860 DATR104.96 
21870 DRTR5038.-1 
RERDV. 
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HIGH RESOLUTION DEMO 

The hi-res loader on pp. 35-40 should be loaded and run once 
before using this demo. 

DESCRIPTION 

This demonstration program plots a series of graphs using the line 
plot and point plot routines. The first graph is of SIN(X), drawn with 
the axis drawn from co-ordinates 0,100 across the screen. When 
the graph plot has been completed, the graph is then plotted four 
times the resolution using the point plot routine. 

The next two are 3D graphs, each take about 7 minutes to plot. 
The reason for the long time in plotting is the extremely 
complicated calculation needed to transform the three dimension- 
al figure into a two dimensional display on the screen. With all of 
these graphs, the character plot routine is used to label the graphs. 

The variables used are of a standard convention: -X and Y are x 
and y co-ordinates, X1, Y1 and X2, Y2 are co-ordinates for each end 
of a line to be plotted, PC is the point colour (0-15), SC is the 
screen colour (0-1 5), AD is add or delete (0=add, 1 =delete), RN is a 
reverse or normal flag for use in character plotting (0=normal, 
1=reverse), and XX and YY are the x and y steps between 
characters in the character plot routine. 

RUNNING THE PROGRAM 

Before this demo is loaded and run, make sure that the hi-res loader 
has been loaded and run. The loader need only be run once and it 
will be there until the machine is switched off. 

Now the loader is 'resident', the demonstration program may be 
loaded and run. There are no input parameters. When all three 
graphs have been plotted, the program will repeat itself. To stop the 
program hit RUN-STOP/RESTORE. 

PROGRAM STRUCTURE 

A brief run down of the program lines is as follows: 

Lines 10-170 : Rem's to explain what each of the subroutines 

does 
180-200 : Display the text "Y=SIN(X) # in the bottom corner 

of the screen. 
210-250 : Loop to plot lines from co-ordinates 0,100 to 

points on a sine curve. 
260-290 : Loop to plot points on the same curve but of a 

smaller step in x. 
300 : Pause between graphs. 

310 : Function for the first 3D graph. 
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315 

340-350 

360-370 

480 

490 

500 

510 

10000-10030 

11000-11020 

12000-12030 

13000-13070 

14000-14130 

15000-15150 



Loop for both graphs. 

Display the text in the bottom left corner. 

Loop to plot 3D graph on the screen. 

Pause between graphs. 

A new equation for a different 3D graph. 

Go back and plot new graph. 

Repeat program. 

Subroutine to call the set up routine. 

Subroutine to call the clear hi-res screen routine 

Subroutine to call the global colour change 

Subroutine to call the point plot routine 

Subroutine to call the line plot routine 

Subroutine to loop and call the character plot routine. 
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* 
*. 

* 
* 
* 
* 



36 REM 
48 REM 
50 REM 
60 REM 
70 REM 
80 REM 
99 REM 
190 REM* 
118 REM* 
120 REM* 
130 REM* 
140 REM* 
130 REM* 
160 REM* 



10 REM ****************************************** 
20 REM * THIS PROGRAM DEMONSTRATES THE USE OF * 
THE HI -RES GRAPHICS ROUTINES. * 

.FOR EASE OF USE. THE POKE AND SVS * 
ROUTINES ARE IN SUBROUTINES AT THE END * 
OF THE PROGRAM THUS.- * 

GOSUB 10000 (SET UP HIRES SCREEN) * 
GOSUB 11000 < CLEAR THE BIT MAP * 
SCREEN? * 

GOSUB 12800 (DO R GLOBAL COLOUR * 
CHANGE) * 

GOSUB 13000 (PLOT A POINT) * 

GOSUB 14009 (DRAW A LINE) * 

GOSUB 15000 (DISPLAV A STRING ON THE* 
SCREEN) * 

* 
1 70 REM****************************************** 

174 REM 

175 REM PLOT LINES FROM ORIGIN TO 

176 REM POINT ON SINE GRAPH 

177 REM 

180 PC=1 :SC=2s GOSUB 10090 

190 B*= I, V=SIN(X>":RH=1 :AD=0sPC«=5 

290 X=0 i XX=8 :V=1 92 sVV=0! GOSUB 15000 

210 PC=1 iXl=0:Vl=100sAD=0 

220 FOR X2=l TO 320 STEP 2 

230 V2=100-(90*SIN(X2*n/45.5)> 

240 GOSUB 14000 

250 NEXT X2 

254 REM 

255 REM PLOT THE SINE CURVE 

256 REM 

260 FOR X=@ TO 319 STEP .5 

270 V=100-O0*SIH(X*ft/45.5)> 

280 GOSUB 130G0 

290 NEXT X 

300 FOR 1=1 TO 1080: NEXT I 

310 DEF FNfl(V)=38*(SINCrV24)+.48*SIH(3*V/24))+20 

311 REM 

312 REM PLOT A 3D GRAPH USING THE FUNCTION 

313 REM DEFINED IN LINE 310 

314 REM 

315 FOR J=1T02 

320 PC=6:SC=12:G0SUB 12000 

339 GOSUB 11000 

340 B*="3D GRAPH" iRN=l sAD=*0:PC=0 
350 X=0!XX=8iV=192sVV=0tGOSUB 15000 
360 PC-6 

370 FOR XX=-10© TO STEP 1 

380 K=6:L=0:P=1 :Z1=0:M=1 

390 V1=K*INT(SGR(10000-XX*XX)/K> 
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400 FOR Z-Vl TO -VI STEP -K ,-,,««,,,,,, 
410 Y=INT<80+FNA<SQR<XX*XX+Z*Z>:>-.707106*Z> 

428 IF V<L THEN 470 

430 L=V:V=190-V 

440 x=M*XX+160 

450 OQSUB 13000 

460 M=-MiIF M--1THEN440 

470 NEXT Z.XX 

480 FOR 1=1 TO 1009: NEXT I 

484 REM 

485 REM A DIFFERENT 3D GRAPH 

486 REM 

490 DEF FHfl<V>=90*EXP<-V*V/600> 

500 NEXT J 

510 RUNi REM REPEAT 

10000 REM SET UP HIRES SCREEN 

10010 POKE 89.SC+PC*16 

10020 SVS<28672> 

10030 RETURN 

11000 REM CLEAR GRAPHICS SCREEN 

11010 SVS<28704> 

11020 RETURN 

12000 REM GLOBAL COLOUR CHANGE 

12010 POKE 89.SC+PC*16 

12020 SVSC 28743) 

12030 RETURN 

1*000 REM PLOT A POINT AT X.V 

13010 POKE 89.X-INT<X/256>*256 

13020 POKE 90.INT<X/256> 

1*030 POKE 91 . INT<V> 

13040 POKE 784. AD 

13050 POKE 879. PC 

13060 SVS< 28782 > 

13070 RETURN 

14000 REM DRAW A LINE BETWEEN XI .VI 

14010 REM AND X2.V2 

14020 POKE e28.Xl-INT<Xl,'25fo>*256 

140*0 POKE 829. INT<X 1/256) 

1 4040 POKE 830 . V 1 - 1 NT < V 1 /256 > #256 

14050 POKE 831.INTCV1/256) 

14060 POKE 832.X2-INT<X2/256>#256 

14070 POKE 833.INTCX2/256> 

14080 POKE 834,V2-INT<V2/256)*256 

14090 POKE 835.INT<V2/256) 

14100 POKE 786. AD 

14110 POKE 879, PC 

14120 SVS<29158> 

14130 RETURN 

15000 REM PLOT CHARACTER A* ON TO THE 

15010 REM SCREEN WITH TOP LEFT COORD- 
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13020 REM I NATES X.V 

15030 F0RI=1T0LEN<B*> 

15040 fl*=MIO*<B*.I .1> 

15950 POKE 866,X-INT<X/256>*256 

15060 POKE e6?,INT<X/'256) 

15070 POKE 868,V:P0KE689,8 

15088 POKE 870.flSC<R*> 

15090 POKE 871.RH 

15108 POKE 784. RD 

15110 POKE 879. PC 

15128 SYS < 29749) 

15138 X=X+XXiV=V+VV 

15140 HEXT 

15158 RETURN 

READY . 
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3D DRAWING 1 

The hi-res loader on pp. 35-40 should be loaded and run once 
before using this demo. 

DESCRIPTION 

3 Dimensional shapes may be displayed in two dimensions by 
having the optical effect of being 3 dimensional. This is achieved by 
using a transformation matrix. This simply requires the addition of 
an extra axis - the Z axis - to the X and Y axis used in a two 
dimensional transformation matrix (see program MOVE). The 
transformation matrix consists of sixteen equations, they are 
stored in lines 3010 to 3160. The mathematics are rather awkward 
to explain, however, for those interested, the book 'Principles of 
Interactive Graphics' by Newman and Sproul can be recom- 
mended. 

RUNNING THE PROGRAM 

There are no input parameter values since they are all within the 
program as LET statements. There are nine parameter values 
which control the movement, rotation of scaling of the shape, these 
are set in lines 120-200. Lines 120 and 140 contain the X, Y, and Z 
scaling factors-full size = 1, half size = 0.5 etc. The rotational 
angles of the shape in either one of the three axes are stored in lines 
1 80-200; note that since these angles must be in radians they are 
multiplied by Pi. The movement of the shape in the X, Y, and Z axes 
is stored in lines 150-170, and is the number of pixels in either 
direction from the original co-ordinates stored in the shape table. 

The object shape is stored in a shape table consisting of two 
parts, the first is simply of the X, Y, and Z co-ordinates, of each 
corner co-ordinate comprising the shape. The second part is a table 
of connections of pairs of points between which a line should be 
drawn. The number of edges in the shape is stored as the variable 
'NE' and the number of co-ordinate points between which the 
edges are connected is stored as variable 'NP'. The co-ordinate 
table is stored as data statements in lines 1210-1220, and the 
connection table in lines 1310-1330. 

PROGRAM STRUCTURE 

A brief run down of the program lines is asfollows: 
Line 70 : Draw border around screen using subroutine at 

900. 
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100-110 
120-140 
150-170 

180-200 
410-530 
900-960 
1000-1170 



1200-1220 



2000-2240 
3000-3160 
3200-3350 
4000-4080 

5000-5090 

10000-10030 

11000-11090 



Set up transform matrix arrays. 

X, Y, and Z scaling factors. 

X, Y, and Z axis movement of shape from initial 

position. 

Angle of X, Y, and Z axis rotation in radians. 

Main program execution routine. 

Border drawing subroutine. 

Load shape data into arrays - array S contains the 

co-ordinate table of the original shape - array E 

contains the line connection data - array M 

contains the transformed co-ordinate data. 

Data statements containing co-ordinate shape 

data as X, Y, and Z for each corner point; note that 

the first three values comprise the co-ordinates for 

point 1 , the second three for point 2 etc. 

Draw the shape. 

Perform transformation matrix calculations. 

Set up scaling and transformation matrix. 

Perform the transformation on each co-ordinate 

point within the shape table. 

Find centre of shape. 

Subroutine to call the set up routine. 

Subroutine to call the line plot routine. 
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1 REM 3D DRAWING 1 

2 r EM *********************** 

3 REM ..^Bimni cuopF tc; DROWN BV THIS PROGRAM 

35 REM 

40 REM SET COLOURS 
50 PC=6:SI>12 
60 GOSUB 10088 

70 REM DRAW BORDER AROUND SCREEN 

75 REM 

80 GOSUB 908 

90 R^M SET UP CONSTANTS. VARIABLES. AND ARRAVS 

95 REM 

100 DIM A<4.4> 

110 DIM B<4.4> 

128 SX=.3 

138 SV=.3 

140 S2».3 

158 TX-1 

160 TV=1 

176 TZ-1 

1R0 RX=40*tr/188 

iqQ R v=20*n/180 

200 R2=50*ir/'1S8 

400 REM MAIN PROGRAM LOOP 

410 GOSUB 1088 

420 GOSUB 5008 

430 GOSUB 3080 

440 GOSUB 4000 

450 GOSUB 2008 

^^e^s0.":pok E Si Lpriht^". 

520 P0KE532S5 .27 .POKE53272 .21 

900 REM BORDER DRAWING SUBROUTINE 
905 REM 

910 Xl=0iVl=8 _„ 

o*0 v 2= ci9 ( V2=0:AD=0!GOSUB 11008 

938 x!=X2 . V 1 -V2 I V2- 1 99 . OOSUB 11 880 
940 X1-X21V1-V2IX2-0IOOSUB 000 
950 X1-X2IV1-V21V2-0IOOSUB 11800 
960 RETURN 

QQC REM 

1000 REM INITIALISE SHAPE 
1085 REM 
1010 NP=8 
1020 NE=12 
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2 


.3.3.4 


,4.1 


2 


.6.4,8, 


.7.3 


5, 


.8,8.7, 


.7.6 



1030 REM 

1049 DIM SO.HPy 

1050 DIM E<HE.2> 
1060 DIM MO.NP) 
1100 REM 

1110 FOR H=l TO HP 
1120 READ SO .N>.S<2.H>,S<3.H> 
1130 NEXT N 
1140 FOR K=l TO HE 
1150 REfiD E<K.1>.E<K.2:> 
1170 HEXT K 
1195 REM 

1200 REM X.Y.Z POIHT COORD I HATES 
1210 DATA 50.0-200.250.0,200,250,0.0,50.0.0 
1220 DATA 50.200.200.250.200.200.250,200.0.50.200.0 
1295 REM 

1309 REM COHHECTIOH DATA 
1305 REM 

1310 DATA 1 .2. 
1320 DATA 5.1 . 
1330 DATA 6.5, 
1900 RETURN 
1995 REM 

20O0 REM DRAW SHAPE 

2005 REM 

2020 FOR K=l TO HE 

2038 V1=E<K,1> 

2640 V2«=E<K,2> 

2045 IF V1=0 THEH 2240 

2050 Xl=MO,Vl> 

2060 Y1=M<2.V1> 

2070 X2=M<1 .V2> 

2080 V2=>K2.V2> 

2220 AD=0:PC=»2:GO3UB 11080 

2240 HEXT K 

2900 RETURN 

2995 REM 

3000 REM SET TRAHSFORMATIGH MATRIX 

3005 REM 

30 1 A < 1 . 1 > -COS <. RV > *COS < RZ > 

3028 A<1 ,2>=C0S<RV>*SIN<RZ) 

3030 A<1 ,3>=-SIH<RV> 

3040 A<1 .4>=0 

3050 R<2,1>=C0S<RX)*<-SIH<RZ>>+SIH<RX>*SIN<RV>*C0S<RZ> 

3060 R<2,2)=C0S<:RX)*C0S<:RZ)+SIH<RX>*SIH<RV)*SIN<RZ) 

3070 A<2.3)=SIN<RX>*C0S<RY> 

3080 A<2.4)=0 

30^0 fl<3,l)»<-SIN<RX>>*<-SIH<RZ)>+C0S<RX)#SIN<RV>*C0S<RZ> 

3100 A<3,2>=-SIH<:RX>*C0S<RZ>+C0S<RZ)*SIH<RV>*SIH<RZ> 

3110 A<3.3>»C0S<RX>*C0S<RV) 
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3120 A<3.4>=0 
3130 FK4.1J-0 
3140 A<4,2>=0 
3150 A<4.3>=0 
3160 fl<4.4)=l 

file rIK set up scaling and translation matrix 

lift |fP.l>-SX*H<l.l> 

3220 B<l-2>=SX*A<K2> 

3230 B<1.3>=SX*A<1,3> 

3240 REM 

3250 B<2.1>"SV#A<2.1> 

3260 B<2-2>=SV*fl<2.2) 

3270 B<2.3>=SV*A<2.3> 

32S0 REM 

3290 B<3.1>=SZ#A<3.1> 

3300 B<3.2>=SZ*A<3,2> 

3310 BC3.3>=SZ*A<3.3> 

3320 REM 

3330 B<4.1>=TX 

3340 B<4.2>=TV 

3359 B<4.3>=TZ 

3900 RETURN 

3995 REM 

4000 REM PERFORM TRANSLATION 

4005 REM 

4010 FOR 0=1 TO NP 

4015 REM 

4020 XT=S<1 ,Q>-XC 

4030 VT=S<2.Q>-VC 

4040 ZT=S<3,Q>-ZC 

aoco Mf5> Q>=VC+<XT*B<1 -2>+VT*B<2.2>+ZT*B<3.2?+BC.'».«.^ 
4070M<1:0>=2C + <XT*B<1.3> + VT*B (2 .3> + ZT*BC3.3> + B<4.3>> 

40S0 NEXT Q 

4900 RETURN 

4995 REM 

5000 REM FIND CENTROID 

5005 REM 

5010 P=0:O=0:R=0 

5O20 FOR 1=1 TO NP 

5030 P=P+SO . I> 

5040 Q=0+S<2r I) 

5050 R=R+S<3.1> 

5060 NEXT I 

5070 XC=P/HP 

5080 VC=Q/HP 

5090 ZC=R/HP 
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5900 RETURN 

10000 REM SET UP HIRES SCREEN 

10010 P0KE89,SC+PC*16 

1 0020 SVS < 28672 > : POKE532S0 , SC 

10030 RETURN 

11000 REM DRAW R LINE BETWEEN XI .VI AND X2.Y2 

11010 P0KES28.Xl-INTi;Xl/25S:>*256 

1 1 020 P0KE829 . 1 NT (. X 1 /256 > 

11930 POKE830.V1 :P0KE831 .0 

1 1 040 P0KE832 . X2- 1 NT < X2/256 > *256 

1 1 050 P0KE833 . 1 NT < X2/256 > 

11060 POKE834.V2:POKE835.0 

11070 P0KE786.RD:P0KES79,PC 

11080 SVSC29158> 

11090 RETURN 

RERDY. 
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3D DRAWING 2 

The hi-res loader on pp. 35-40 should be loaded and run once 
before using this demo. 

DESCRIPTION 

This program is identical to the program 3D DRAWING 1 except 
that an additional subroutine has been added to remove hidden 
lines. Hidden lines are those lines which lie out of sight of the 
viewer and are hidden behind the front surfaces. By removing 
these hidden lines the shape of the object becomes much clearer. 
The subroutine which checks for hidden lines is located between 
line numbers 6000 and 6150. 

RUNNING THE PROGRAM 

The parameters and data tables required for this program are the 
same as those used for the program 3D DRAWING 1, consult this 
program for information. Note that the connection table now 
describes object faces ratherthan lines. 

PROGRAM STRUCTURE 



A brief run down of the program lines is asfollows: 

Lines 1-5995 are identical to 3D DRAWING 1 except the following 

lines: 

115-117 

450 

1010-1170 

1310-1360 

6000-6140 



The addition of two more arrays. 

lsnowGOSUB6000. 

Slight alterations required. 

Different data. 

Subroutine to check for hidden surfaces. 
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1 REM 3D DRAWING 2 

2 REM *********************** 

3 REM 

10 REM fl THREE DIMENSIONAL SHAPE IS DRAWN BV THIS PROGRAM 
20 REM THE ROTATION POSITION AND SCALE OF THE OBJECT 
30 REM CAN BE CHANGED TO GIVE DIFFERENT VIEWING ANGLES. 

35 REM HIDDEN LINES ARE NOT DRAWN 

36 REM 

40 REM SET COLOURS 
50 PC=6sSC=12 
60 GOSUB 10000 
65 REM 

70 REM DRAW BORDER AROUND SCREEN 
75 REM 
80 GOSUB 900 
85 REM 

90 REM SET UP CONSTRHTS, VARIABLES, AND ARRAVS 
95 REM 

100 DIM A<4.4> 
110 DIM B<4,4> 
115 DIM CC3> 
11? DIM D<3) 
.3 
.3 
.3 

= 1 

= 1 

= 1 

180 RX=40*ir/188 
190 RV=20*ir/180 
208 RZ=50*1T/180 
480 REM MAIN PROGRAM LOOP 
410 GOSUB 1600 
420 GOSUB 5008 
430 GOSUB 3008 
440 GOSUB 4800 
450 GOSUB 6080 
500 GET A* I IF A*="" THEN 508 
5 1 POKE53280 ,14s P0KE5328 1 . 6 I PR I NT " m" ) 
520 P0KE53265,2?iP0KE53272.21 
530 END 

908 REM BORDER DRAWING SUBROUTINE 
905 REM 
910 Xl«=0iVl=0 

920 X2=319:V2=0sAD=0: GOSUB 11000 
930 XI =X2 s VI =V2sV2=l 99 : GOSUB 11000 
940 Xl=X2!Vl=V2(X2=0sGOSUB 11880 
950 Xl=X2iVl=V2iV2=0iGOSUB 11008 
960 RETURN 
995 REM 



120 


SX= 


130 


SV= 


140 


SZ= 


150 


TX= 


160 


TV= 


178 


TZ= 
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1000 REM INITIALISE SHHPE 

1005 REM 

1010 HP=8 

1020 NE=4 

1030 NF=6 

1040 DIM S<3.NP> 

1050 DIM ECNF,NE.2:> 

1060 DIM MC3.NP) 

1180 REM 

1110 FOR N=l TO UP 

1120 REfiD s<:i,h>.s<2.n:>.s<3.n> 

1130 NEXT N 

1135 FOR F=l TO HF 

1140 FOR K=l TO HE 

1150 READ E<F,K.1>.E<F,K,2) 

1170 NEXT K.F 

1195 REM 

1200 REM X.Y.Z POINT COORD I NOTES 

m0 DATA 50.0.200,250,0.200.250,0.0,50,' .0 

1220 DATR 50.200.200.250.200.200.250.200.0.50,200.0 

1295 REM 

1300 REM CONNECTION DATA 

1305 REM 

1310 DATA 1.2.2.3,3.4.4.1 

1320 DATA 5,1,1,4,4.3,8,5 

1330 DATA 6,5,5,8,8,7,7,6 

\m Wti ?:§:§:I:I:3:l:f 

1360 DATA 3,7.7.8.8.4.4,3 

1900 RETURN 

1995 REM 

2000 REM DRAW SHAPE 

2005 REM 

202O FOR K=l TO HE 

2030 V1=E<F,K.1> 

2040 V2=E<F.K,2> 

2045 IF V1=0 THEN 2240 

2050 X1=M<1 ,V1> 

2060 Vl=M<2.Vl> 

2070 X2=M<1 ,V2> 

2080 V2=M<2,V2> 

2220 flD=0:PC=2iOOSUB 11000 

2240 NEXT K 

2900 RETURN 

2995 REM 

3000 REM SET TRANSFORMATION MATRIX 

3005 REM 

3010 fl<l.l>=COS<RY>*COS<RZ> 

3020 A<1 ,2>=C0S<RV>*SIN<R2> 

3030 A<1 .3?=-SIN<RY) 

3040 A<1 ,4>=0 
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3858 FK2.O=C0S<R:K>*<-SIH<RZ)>+SIHCRK>*SIH<:RV)*C0S<R2> 

3860 A<2.2>=C0S<RX>*C0S<:RZ>+SIN<RX>*SIH<RV:>*SIN<RZ> 

3970 A<2,3>=SIN<RX>*C0S<RV> 

3030 A<2,4>=0 

3090 fl<3.1> = <-SIN<RX))*<:-SIHCRZ)>+C0S<:RX)*SIH';RV>*C0S<R2> 

3100 A<3,2>=-SIN<RX>*C0S<RZ>+C0S<RZ>*SIN<RV:>*SIN<R2> 

3110 fl(3.3>=C0S<RX>*C0S<;RV> 

3129 A<3,4>=0 

3130 A<4,1>=0 
3140 R<4.2>=0 
3150 fK4.3>=0 
3160 RC4.4>=1 
3195 REM 

3200 REM SET UP SCALING FIND TRANSLATION MATRIX 

3205 REM 

3210 B<1 . 1>=SX*A<1 .1) 

3220 Ba,2>=SX*FKl,2> 

3230 B(l ,3>«SX*R<1 .3) 

3240 REM 

3250 B<2.1>=SV*R<2.1> 

3268 B<2,2>=SV*fl<2.2> 

3270 B<2,3>=SV*R<2.3> 

3280 REM 

3290 B<3-1>=S'2*A<3.1> 

3309 B<3.£>=SZ*R<3.2> 

3310 B<3.3>=SZ*A<3.3> 
3320 REM 

3330 B<4.1>=TX 

3340 B<4,2>=TV 

3350 B<4.3>=TZ 

3900 RETURN 

3995 REM 

4000 REM PERFORM TRANSLATION 

4005 REM 

4010 FOR Q=l TO HP 

4015 REM 

4020 XT=SO ,Q>-XC 

4030 VT=S<2,0)-VC 

4040 ZT=S<3.Q>-ZC 

4045 REM 

4050 M<1 ,Q>=XC+<XT*B<1 . 1 >+VT*B<2 . 1 >+ZT*B<3, 1 >+BC4 . 1 > > 

4060 M<2,Q>«=VC+<XT*B<1 ,2>+VT*B<2 ,2>+ZT*B<3 ,2>+B<4,2>> 

4070 M<3,Q>=ZC+<XT*B<1 ,3>+VT*BC2.3>+ZT*B<3 ,3>+B<4,3> > 

4080 NEXT Q 

4909 RETURN 

4995 REM 

5000 REM FIND CENTROID 

5005 REM 

5016 P=0!Q=0sR=0 

5020 FOR 1=1 TO NP 

5030 P=P+S<1 .l> 
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5940 Q=Q+S<2.1> 
5850 R=R+S<3.1> 
5060 NEXT I 
5079 XC=P/MP 
5088 VC=Q/HP 
5090 2C=R/MP 
5900 RETURN 
5995 REM 

6009 REM HIDDEN SURFRCE CHECK 
6005 REM 

6010 FOR F=l TO HF 
6020 FOR J=l TO 3 

6030 C<J>-MO.E<F,1.2>>-M<J.E<F,l,l>> 

6040 D<J>'=M<J.E<F.2.1>>-M<J.E<F.2.2>> 

6050 HEXT J 

6060 P1-C<2>*D<3>-C<3)*0<2) 

6070 P2=CC3)*Da>-C<l>*0<3> 

60S© P3*Ca>*0<2>-C<2>*D<i> 

6090 Q1"»1-I"K1,E<F.1.2>> 

6100 Q2=l-M<2.E<F.l .2>> 

6110 Q3=500-M<3.E<:F.l .2>> 

6120 W=P1*Q1+P2*Q2+P3*Q3 

6130 IF W>=0 THEN GOSUB 2000 

6140 HEXT F 

6150 RETURN 

10000 REM SET UP HIRES SCREEN 

10010 P0KE89.SC+PC*16 

10020 SVS< 2e672>iPOKE53280.SC 

19030 RETURN ,_ ,,„ 

11000 REM DRRW fl LINE BETWEEN XI .VI AND X2.V2 

11010 P0KE328.X1-INTCX1^256)*256 

11020 P0KE829 . 1 NT < X 1 /256 > 

1 1830 POKE830 .VI IP0KE831 .0 

1 1 040 P0KE832 . X2- 1 NT < X2/256 > *256 

1 1 050 P0KE833 . 1 NT < X2/256 ) 

1 1 060 P0KE834 . V2 I P0KE835 . 

11070 P0KE786.RDiP0KE879.PC 

11086 SVS<29158> 

11030 RETURN 

REflOV. 
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MOVE 

The hi-res loader on pp. 35-40 should be loaded and run once 
before using this demo. 

DESCRIPTION 

A transformation matrix can be used to cover all manipulation of a 
shape for rotation, translation, and scaling. The primary purpose of 
this program is to show how a shape can be moved about the 
screen, but it also embodies the capability of scaling and rotation. 
The transformation matrix consists of six quotations. These 
equations are stored in lines 3000-3100. Equations 1 to 4 consist of 
the rotation transform equation multiplied by a scaling factor, 
equations 5 and 6 do the movement by adding an offset to the 
shape position. The shape can be translated to any part of the 
screen, rotated through 360 degrees and stretched in either X or Y 
axis or both. Note that the actual moving is done in the program, 
what appears on the screen is the end result, and due to the large 
amount of calculation required, is necessarily rather slow. 

RUNNING THE PROGRAM 

There are no input parameter values since they are all within the 
program as 'LET statements. There are six parameter values which 
control the movement, rotation, or scaling of the shape, these are 
set in lines 120 to 160. Lines 120 and 130 contain the X and Y scaling 
factors - full size = 1 , half size = 0.5 etc. The rotational angle of the 
shape is stored as the variable RZ in line 140, note that since this 
angle must be in radians it is multiplied by Pi/180. The movement of 
the shape in the X and Y axes is stored in lines 1 50 and 1 60, and is 
the number of pixels in either direction from the original 
co-ordinates stored in the shape table 

The object is stored in a shape table. This table consists simply of 
the X and Y co-ordinates at the end of each line comprising the 
shape. It should be noted that the number of co-ordinate pairs is 
one more than the number of lines in the shape. The number of 
lines in the shape is stored as the variable NP as the first value in 
the data table. The data table is stored as data statements in lines 
1 1 1 to 1 1 30. Try designing your own shapes on graph paper and 
then entering the new values into the data statements. 

PROGRAM STRUCTURE 

A brief run down of the program lines is as follows: 

line 90 : Draw border around screen using subroutines at 
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110 

120-130 
140 
150-160 

210-260 
400-460 
1000-1050 



1110-1130 

2000-2080 
3000-3100 
400-4070 

5000-5220 

10000-10020 
11000-11090 



400. 

Set up transform matrix a rray. 

X and Y scaling factors. 

Angle of shape rotation in radians. 

X and Y axis movement of shape from initial 

positions. 

Main program execution. 

Border drawing subroutine. 

Load shape data into arrays - arrays X and Y 

contain the original shape data - arrays U and V 

contain the transformed shape data. 

Data statements containing shape data - line 1110 

contains the number of lines in the shape. 

Find the centre of the shape. 

Perform transformation matrix calculations. 

Performs the transformation on each co-ordinate 

point within the shape table. 

Draws the shape using the transformed data in the 

arrays U and V. 

Subroutine to call the set up routine. 

Subroutine to call the line plot routine. 
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1 REM MOVE 

2 REM *********************** 

3 REM 

10 REM THIS PROGRAM USES MATRIX TRANSFORMATION TO 

20 REM MOVE .ROTATE, OR SCALE A TWO OIMENSIONAL SHAPE 

30 REM 

40 REM 

30 REM SET COLOURS 

60 SC=12:PC=6 

?0 COSUB 10000 

75 REM 

80 REM DRAW BORDER 

90 GOSUB 400 

95 REM 

100 REM SET UP CONSTANTS. VARIABLES. AND ARRAVS 

105 REM 

116 DIM A<3.3> 

120 SX=1 

130 SV-1 

140 R2«80*it/180 

156 TX--50 

160 TY=2 

190 REM 

200 REM MAIN PROGRAM LOOP 

205 REM 

210 GOSUB 1000 

220 GOSUB 2000 

230 GOSUB 3908 

240 GOSUB 4000 

259 GOSUB 5000 

269 GET A*! IF A*="" THEN 260 

2?0 POKE53280 . 1 4 i P0KE5326 1 . 6 I PR I NT " m" » 

2S0 P0KE53272 ,21s P0KE53265 . 27 

290 END 

395 REM 

400 REM DRAW BORDER 

405 REM 

410 >!1=0:V1=0!AD=0 

420 X2=319:V2=0!GOSUB 11000 

430 X1=X2»V1=V2!V2= 199 -.GOSUB 11000 

440 Xl=X2i VI =V2iX2=0« GOSUB 11000 

450 Xl=X2:Vl=V2tV2=0lGOSUB 11000 

460 RETURN 

995 REM 

1000 REM INITIALISE SHAPE 

1005 REM 

1010 READ NP 

1020 DIM XCHP+O.V<NP+l>.U<NP+l>.V<NP+l> 

1030 FOR 1=1 TO NP+1 
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1940 RERD X<I).V<I> 

1050 NEXT I 

1690 REM 

1100 REM SHAPE DATA 

1105 REM 

1110 DATA 5 

1120 DRTR 100. 100, 150. 120. 175, 75 

1130 DRTR 150.30.100.59.100,100 

1200 RETURN 

1995 REM 

2000 REM FIND CENTRE OF SHAPE 

2005 REM 

2010 CX=0sCV=0 

2020 FOR C=l TO NP 

2030 CX»CX+X<C> 

2040 CV=CV+Y<C> 

2050 NEXT C 

2060 CX-CX/NP 

2070 CV=C'tVNP 

2080 RETURN 

2995 REM 

3000 REM SET TRRNSFORMRTION MATRIX 

3005 REM 

3010 A<l.l>=SX*COS<RZ> 

3020 A0.2>-=SX*SItKR2> 

3030 REM 

3040 flC2.n=SV*<-SINCRZ>> 

3050 A<2.2>="SV*C0S<:RZ> 

3060 REM 

3070 A<3.1>=TX 

3088 fl<3.2>=TY 

3090 REM 

3100 RETURN 

3995 REM 

4000 REM DO TRRNSFORMRTIOH 

4005 REM 

4010 FOR Q=l TO HP+1 

4020 XT=X<Q>-CX 

4033 VT»V<Q>-CV 

4040 IKP>=CX+<;XT*R<1 ,l>+VT*fl<2.1>+fK3,l>> 

4050 VCQ>=CV+<XT*RC1.2>+VT*fl«:2.2>+R<3.2)> 

406O NEXT Q 

4070 RETURN 

4995 REM 

5000 REM DRRW SHAPE 

5005 REM 

5010 FOR Q=l TO NP 

5020 Xl=U<Q>iVl=V<Q> 

5030 X2=U<Q+1>:V2=V<0+1) 

5190 RD=0:PC=0!OOSUB 11000 

5210 NEXT Q 
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5220 RETURN 

10000 P0KE89.SC+PC*16 

1 00 1 SVS < 28672 > : POKE53280 . SC 

10020 RETURN 

11800 POKE 828.Xl-INT<Xl/256>*256 

11010 POKE 829. I NT <X 1/256) 

11028 POKE 830. VI: POKE S31 .0 

11030 POKE 832.X2-INTCX2/256>*256 

1 1040 POKET 833 . INTCX2/256) 

11650 POKE S34.V2:P0KE 835.0 

-11060 POKE 786. RD 

11070 POKE 879. PC 

11080 SVS<29158> 

11090 RETURN 

REHDV. 
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ELLIPSE 



The hi-res loader on pp. 35-40 should be loaded and run once 
before using this demo. 

DESCRIPTION 

This program allows the user to plot ellipses on the screen 
(circles may also be plotted by setting the elliptical offsets in the X 
and the Y axis to the same values). The ellipse is drawn with a 
variable dot spacing, which is input along with the centre 
co-ordinates, the radius, and the elliptical offsets. Since characters 
cannot be displayed directly onto the screen in Hi-Res Mode, the 
input routines will not display the data entry. This has been 
overcome by using the character plot routine to display the input 
characters using the 'GET command. This routine is used 
throughout the inputs in the program, but is very limited, there is 
no facility to delete a character (any character other than 0-9, '.' or 
'-' will act as a return in a normal input). 

RUNNING THE PROGRAM 

When run, a border is drawn around the screen plotting area and a 
'?' will appear at the bottom outside the border. This is a prompt to 
enter the X and Y centre co-ordinates of the ellipse. When the 
co-ordinates have been entered, then the radius is asked for, then 
the dot spacing, and finally the elliptical offsets in X and Y 

PROGRAM STRUCTURE 

A brief run down of the program lines is asfollows. 

Lines 60-70 

90 

110-119 

120-126 

130-136 

140-149 

210-290 

300 

350-370 

400-460 

10000-10030 

11000-11100 

12000-12060 

13000-13090 



Set colours and go into hi-res mode. 

Draw border round screen using subroutine at 400. 

Input centre co-ordinates forthe ellipse. 

Input radius of ellipse. 

Input dot spacing for ellipse. 

Input elliptical offsets for ellipse. 

Draw ellipse. 

Repeat for another go. 

if XC<0 or YC<0 then restore registers and end. 

Draw a border around display area. 

Subroutine to call the set up routine. 

Subroutine to call the line plot routine. 

Subroutine to call the point plot routine. 

Subroutine to call the character plot routine. 
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1 REM ELLIPSE 

2 REM *********************** 

3 REM 

10 REM ROUTINE TO DRAW RN ELLIPSE US IN OFFSETS 

20 REM SPACING BETWEEN THE DOTS USED 

38 REM TO DRAW THE ELLIPSE IS VARIABLE 

40 REM 

50 REM SET COLOURS 

55 REM 

60 SC=12:PC=6 

70 GOSUB 10000 

75 REM 

80 REM DRAW BORDER 

85 REM 

90 GOSUB 400 

95 REM 

100 REM INPUT ELLIPSE DRAWING PARAMETERS 

110 REM COORDINATES OF ELLIPSE CENTRE 

111 Z*="" iT=16:TT=192:PC=0:RN=0:RD=0 

1 1 2 RN=0 : A*= " ? " : GOSUB 1 3000 

113 T=40sOOSUB 500 

114 XC"?^*-"" 

115 A*-"." i GOSUB 13000«T-T+8 

116 GOSUB 500 

117 VC-Z 

118 IF XC<0 OR VC<0 THEN 350 

119 FOR T=0 TO 160 STEPS iRD-1 |RN=1 lfl*=" "« GOSUB 13000: NEXT T 

120 REM ELLIPSE RADIUS 

121 Z*«*"" sT=16:RD=0iRN=0 

122 A*="?":GOSUB 13090 

123 T=40: GOSUB 500 

124 RA=Z 

126 FOR T=0 TO 160 STEP 8 : RN- 1 : RD= 1 : A*= " " t GOSUB 13000: NEXT 

130 REM DOT SPACING 

131 Z*= "" : T= 1 6 : AD=0 : RH=0 

132 A*= M ?" : GOSUB 1300O 

133 T=40: GOSUB 500 

134 DS=Z 

136 FOR T=6 TO 160 STEP 8tRN=l :RD=1 :R*» GOSUB 130O0:NEXT 

140 REM ELLIPTICAL OFFSETS IN X AND V AXIS 

141 Z*=" " :T=16:RN=0:RD=0 

142 A*="?" s GOSUB 13000 

143 T=40: GOSUB 500 

144 OX=Z:Z*=" " 

1 45 A*= " . " : GOSUB 1 3000 i T«T+8 

146 GOSUB 500 

147 OV=Z 

149 FOR T=0 TO 160 STEP 8:RN=1 iAD=l :A*= GOSUB 13000: NEXT 

195 REM 

200 REM DRAW ELLIPSE 
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205 REM 

218 DS=DS*fr/i80iRN=0iflD=0 

220 R=Rfl 

230 FOR P=0 TO 2*»r STEP DS 

235 REM 

240 X=R*COS<P>*OX 

250 V-R*SIN<P>*OV 

270 X-X+XCsV-V+VC 

275 IF X<0 OR V<0 OR V>190 THEN 290 

280 PC=2sGCSUB 12000 

290 NEXT P 

300 OOTO 100 

350 P0KE53265 . 27 I P0KE53272 . 2 1 

360 POKE53280.14tPOKE53281 .6 iPRINT"33" » 

370 END 

395 REM 

400 REM BORDER DRAW I NO ROUTINE 

405 REM 

410 Xl=0iVl=08RD=0 

428 X2=319:V2=0:GO3UB 11000 

430 Xl=X2!Vl=V2iV2=190:GOSUB 11000 

440 Xl=X2:Vl=V2:X2=0sGOSUB 11 8O0 

450 Xl=X2iVl»V2iV2«=0:GOSUB 11000 

460 RETURN 

495 REM 

588 REM INPUT ORTR 

505 REM 

510 GET fl*:IF A*="" THEN 519 

528 IF <P,SC<FI*)<48 OR RSC < R* > >57 > AND fl*0"-" AMD R*<>" 

THEN 550 

530 RN-OsGOSUB 13088 :T»T+8 

548 Z*=Z*+fl*:G0T0 510 

550 Z=VRL<Z*> 

560 RETURN 

10080 REM SET UP GRRPHICS SCREEN 

10018 P0KE89.SC+PC*16 

1 0020 SVS < 2S672 > i POKE53280 , SC 

18038 RETURN 

11080 REM ORRW R LINE BETWEEN X1,Y1 AND X2.V2 

11810 P0KE828 . X 1 - 1 NT < X 1 /256 > *256 

11028 P0KE829.INT<Xl/256> 

1 1838 P0KE838-V1 (P0KE831 ,0 

1 1 848 P0KE832 . X2- 1 NT < X2/256 > *256 

11850 P0KE833,INT<X2/25S> 

11068 FQKE834.V2iPOKE835.0 

11070 P0KE786,R0 

11880 PGKE879.PC 

11090 SYSC29153) 

11100 RETURN 

12080 REM PLOT R POINT 

12818 P0KE89.X-INT<:X/256>*256 

12820 POKE90.INT<X/256> 
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12030 P0KE91 .V 

12040 P0KE734.AD 

12045 P0KE879.PC 

12050 SVS<287S2> 

12068 RETURN 

13000 REM DISPLAY A CHARACTER 

13010 P0KE866,T-INTOV236>*256 

13820 P0KE867.INT<:T/256> 

13030 POKE368.TT8POKES69.0 

13049 POKE870,ASC<A*> 

13050 P0KE871 ,RN 
13060 POKE784.A0 

13079 P0KE879.PC 

13080 SVS<29749> 
13090 RETURN 

RE ADV. 
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INTERPOLATE 

DESCRIPTION 

Determining a set of data is all very well, but it is the interpolation of 
that data that produces the all important results. One common 
method of doing this is to take the data and turn it into points on a 
graph, and then perform the interpolation on those points. The 
program 'interpolate' does just that, by assuming that you already 
have your data in the form of X and Y co-ordinates. You could quite 
easily incorporate your own data into this program simply by 
changing the data statements in line 180. 

RUNNING THE PROGRAM 

The main bulk of the work is done by a) line 1 80, which stores the 
data as X, Y co-ordinates, and b) line 200, which determines which 
point we start at (here it is the first one), which one we finish at (here 
it is the twelfth), and which points we interpolate between (here it is 
every one, although by changing the variable SP in line 200 we 
could easily take every other point, for instance). Once we've 
calculated the scaling factors in lines 410 to 490, and turned those 
into point increments in lines 510 and 520, we plot the actual point 
in line 640, and the line between each point by the routine in lines 
670 to 720. 



PROGRAM STRUCTURE 

A brief description of the program lines is as follows: 



Lines 60-70 
90 

110-160 
180 
200 
220-230 

310-385 

410-490 

510-520 

610-720 

1000-1060 

10000-10020 

11000-11090 

12000-12060 

13000-13120 



Set colours and go into hi-res mode 

Draw border round screen using subroutine at 

1000 

Read and store data 

Data stored as X, Y co-ordinates 

Determinate start and end points and separation 

Determine position and dimensions of graph 

screen 

Draw border round graph and label graph 

Determine scaling factor 

Convert scaling factors to point increments 

Point and line drawing routine 

Draw border around screen 

Subroutine to call set up routine 

Subroutine to call line plot routine 

Subroutine to call point plot routine 

Subroutine to call character plot routine. 
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1 REM INTERPOLATE 

2 REM #****#*#***#****#*****# 

3 REM 

10 REM PROGRAM TO DRAW A GRAPH BY INTERPOLATING 

29 REM A SET OF POINTS STORED AS OATA STATEMENTS IN 

30 REM LINE 180. 
45 REM 

50 REM SET COLOURS 

55 REM 

60 SC=12 sPOS 

70 GOSUB 10000 

75 REM 

80 REM DRAW BORDER AROUND SCREEN 

85 REM 

90 GOSUB 1000 

95 REM 

100 REM INITIALISE DATA 

105 REM 

110 DIM X<12> 

120 DIM Y02> 

130 FOR 1=1 TO 12 

140 READ X<I> 

150 READ Y<I) 

160 NEXT I 

165 REM 

170 REM DATA STORED AS X AND Y COORDINATE 

175 REM 

180 DATA1. 10, 2. 25. 3, 30. 4. 20. 5. 40. 6. 30. 7. 50. 8. 20. 9. 25. 10. 50. 

11 .30.12.20 

185 REM 

190 REM M.IN DIMENSION -1 . MAX =12. SEPERATION =1 

195 REM 

200 DH=1 !DX=12iSP=l 

205 REM 

210 REM POSITION AND DIMENSIONS OF GRAPH ON SCREEN 

215 REM 

220 XL=20sXR=300 

230 VB=170tVT=50 

295 REM 

300 REM DRAW BORDER AROUND GRAPH 

305 REM 

3 1 X3=XR+ 1 i V3= YB+ 1 1 AD=0 : PC=0 

320 X4=XR+10:Y4=YT-10! GOSUB 11000 

330 X3=X4iV3=V4tX4=XL-10iGOSUB 11800 

340 X3=X4:V3=Y4iY4=VB+10!GOSUB 11000 

350 X3=X4iV3=V4:X4=XR+10iGOSUB 11600 

355 xi=<xr-xl:>/<ox-dn> 
360 for x=xl to xr step xi 

365 FOR A=10 TO 13 
370 V=VB+R: GOSUB 12000 
375 NEXT flrNEXT X 
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388 A*=»" INTERPOLATED GRRPH" iX=80!V=20 iXX«8lVV-0 

385 RH=0sAD=0iPC=2lGOSUB 13080 

395 REM 

4O0 REM CALCULATE SCALING FACTORS 

405 REM 

410 Vl=-1000800 

420 V2= 1000000 

439 X1=V1 !X2=V2 

440 FOR I=DN TO OX STEP SP 
450 IF VKV(l) THEN V1=V<I> 
460 IF V2>V<I> THEN V2=V<I) 
470 IF XKX<I> THEN Xi=X<I> 
480 IF X2>X<I> THEN X2=X<I> 
490 NEXT I 

495 REM 

500 REM CONVERT SCALING FACTORS INTO POINT INCREMENTS 

505 REM 

510 A=<XR-XL>/<X1-X2> 

520 B=<VB-VT)/'<V1-V2> 

595 REM 

600 REM PLOT GRAPH 

605 REM 

610 FOR I=DN TO OX STEP SP 

620 X=<XL+<X<I>-X2>*A>lX3=X 

630 V=CVB-<V<I>-V2>*B> 1V3-V 

660 PC*1 :AD=0lGOSUB 12600 

670 0=I+SP 

680 IF Q>DX THEN 900 

690 X=<XL+<X<Q)-X2>*A> :X4=X 

700 V»<VB-<V<Q>-V2>*B>iV4"V 

710 GOSUB 11000 

720 NEXT I 

■900 GETR* : I F A*= " " THEN900 

910 POKE53280.14IPOKE53281 .6 iPRINT'Tn" > 

920 P0KE53265.27:POKE53272.21 

930 END 

1000 REM DRAW BORDER AROUND SCREEN 

1005 REM 

1010 X3=0:V3=0iAD=0 

1020 X4=319!V4=0iGOSUB 11000 

1030 X3»X4iV3»V4lV4=199lG0SUB 11000 

1040 X3=X4sV3=V4iX4=0lGOSUB 11000 

1050 X3=X4!V3=V4iV4=0iGOSUB 11000 

1060 RETURN 

10000 P0KE89.SC+PC*16 

10010 SVS< 28672) : POKE53280.SC 

10020 RETURN 

URR0 POKE 828.X3-INT<X3/256)*256 

11010 P0KE829.IHT<X3/256> 

11020 POKE330,Y3:POKE831.0 

1 1 030 P0KE832 . X4- 1 NT < X4/256 > #256 
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11040 P0KE833.INT<X4/256> 

11050 POKE834.V4:POKE835.0 

11060 P0KE786.R0 

110*0 P0KE879.PC 

11080 SVS<2915S) 

11090 RETURN 

12000 P0KES9.X-INT<X/256>*256 

12610 POKE90.INT<X/256> 

12020 P0KE91 -V 

12030 P0KE784,RD 

12040 P0KE879.PC 

12059 SVS< 28782 > 

12060 RETURN 

13000 FOR 1=1 TO LEN<R*> 

13010 B*=MIO*<fl*.I ,1) 

13020 P0KE866.X-INT<X/256)*256 

13030 P0KE867.INT<X/256> 

13040 POKE868.YiPOKE869,0 

13050 POKE870,RSC<8*> 

13060 P0KE871 -RN 

13070 P0KE879.PC 

13080 P0KE734.RD 

13090 SVSC 29749) 

13100 X=X+XXiV-V+VV 

13110 NEXT I 

13120 RETURN 

RERDV. 
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SPRITE THEORY 



Sprites are hi-resolution blocks 24 pixels wide by 21 pixels high. 
The Sprite is stored in a 63 byte area of memory. As only one bank 
of 16K of memory may be addressed at any one time, using the 
video chip, a total of 240 Sprites may be defined (1K of that 16K 
memory is reserved for the screen). Although 240 Sprites may be 
defined, only 8 of those Sprites can be displayed on the screen at 
onetime. 

The Sprite may be moved anywhere within the screen and will 
not disturb any display already on the screen, i.e. it passes over (or 
under) the display. Sprites may be moved in distances of one pixel, 
giving the effect of continuous movement. 

Sprites are controlled using the 47 registers of the video chip 
starting at address 53248($D000). Below is a diagram of these 
registers. 

ADDRESS DESCRIPTION 

00 ($00) Sprite X position 

01 ($01 ) Sprite Y position 

02 ($02) Same as and 1 for Sprites 1-7 



15($0F) 

16 ($10) M.S.B. of X position. SP0 in bit 0, SP 1 in bit 1 etc. 

18)$12) Raster Register 

19 ($13) Light Pen X co-ordinate 

20 ($14) Light Pen Y co-ordinate 

21 ($15) Sprite enable register. SPO in bit 0, SP 1 in bit 1 etc. 

23 ($17) Sprite expand in Y. SPO in bit 0, SP1 in bit 1 etc. 

24 ($18) Memory pointers, bit not used 

25 ($19) Interrupt Register, bits 4, 5, and 6 not used 

26 ($1 A) Enable Interrupt, bits 4, 5, 6, and 7 not used 

27 ($1B) Sprite-data priority. SPO in bitO, SP1 in bit 1 etc. 
28($1C) Sprite Multi-colour Select. SPO in bit 0, SP1 in bit 

1 etc. 

29($1D) Sprite expand in X. SPO in bit 0,SP1 in bit 1 etc. 

30 ($1 E) Sprite-Sprite collision. SPO in bit 0, SP1 in bit 1 etc. 

31 ($1F) Sprite-Data collision. SPO in bit 0,SP1 in bit 1 etc. 

32 ($20) Bordercolour 

33 ($21) Background colour #0 

34 ($22) Background colour #1 

35 ($23) Background colour #2 

36 ($24) Background colour #3 

37 ($25) Sprite Multi-colour #0 

38 ($26) Sprite Multi-colour #1 

39 ($27) Sprite colour 

40 ($28) Same for Sprites 1 -7 



72 



46($2E) 



In registers 32-46, bits 4, 5, 6 and 7 are not used. 

Two 'POKE's' are required to enable one Sprite. The first 'POKE' 
tells the computer which data block to look at when displaying the 
Sprite. This is done by 'POKE 2040+sp#,bl#', where sp# is the 
Sprite number (0 - 7) and bl# is the Sprite data block number (0 - 
255). The starting location of the block is 64*bl#. 
The second 'POKE' is to enable the Sprite, this is done by 'POKE 
53269, PEEK (53269) OR2 (to the power of) sp #. 

The Sprite is not yet on the screen, as it must be given a colour 
(or colours in Multi-colour Mode) and X and Y co-ordinates. 

First, the colour; this is done by 'POKE 53287+sp#,col' where 
col is the colour from 0-15. 

Then give the Sprite co-ordinates; this is done by: 
'POKE 53248+sp#*2,Xand255' 
'POKE 53248+sp#*2+ 1 ,Y' 

If the X co-ordinate is larger than 255, then a third 'POKE' is 
required. This is: 
'POKE 53264,PEEK(53264)OR2(tothe power of )sp# 

These 'POKE's' are useless unless a Sprite has previously been 
defined. This can be done in two different ways. One method is to 
take a sheet of graph paper and plot the points onto the paper. 
When done, each of the 21 lines has to be split up into three equal 
columns of eight points and a value calculated from these. 

When this has been done for all of the now 63 bytes, the data can 
be entered into the machine in consecutive locations, starting from 
the first block location. 

The second less tedious method is to use a simple Sprite editor. 
This has been developed to allow the user to use the screen as 
graph paper, the same program writes the Sprite as data at the end 
of the editor. More information aboutthe Sprite editorcan be found 
in the description of the program. 

At the beginning of this section we mentioned that a 
maximium of 240 Sprites may be defined at any onetime in the one 
memory bank. This is impossible in memory bank #0, since it is 
used for pointers and important variables, in addition, it is the 
bottom end of the basic programming area. This can be overcome 
by selecting another bank. An easy process allowing the user to 
have lots of Sprites available. The ideal bank to select is bank 2, this 
is the only bank, other than bank 0, that has a character set 
available. The process for selecting this memory bank is as follows: 
'POKE 56578,PEEK(56578)OR 3' 
'POKE 56576,(PEEK(56576)AND 252)OR 1' 
'POKE 648,60' 
'POKE 53272,(PEEK(53272)AND 15)OR 240' 
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In order, this routine sets bits and 1 in the CIA #2 register to 
output, selects memory bank 2, and puts the video screen at the top 
end of that bank. The screen now resides at location 48128-49129, 
the Sprite pointers are now from 49144 to 49151. Sprites can be 
stored from block number to 239 (the new location calculation is 
64*bl#+32768). 

The section of memory being used is still within the Basic 
programming area, this must now be protected by lowering the top 
of basic pointers and the string storage pointers. This is done by: 
'POKE 56,128: POKE 53,128:CLR: NEW 

The co-ordinates of the two Sprites should be slightly different if 
they are next to each other. If the Sprites are unexpanded, the 
difference in the x co-ordinates is 24 and in the y direction is 21 . For 
expanded mode the difference should be doubled. By having more 
than one Sprite defined in memory and there being a slight 
difference between the Sprites, dynamic displays may be produced 
by switching between one Sprite and another in a timed loop. This 
can be done by changing the value in one of the Sprite block 
pointers (2040-7) between the block numbers of the different 
Sprites. By using varying time loops, rapidly changing and/or 
slower displays may be created. 
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SPRITE GENERATOR 

DESCRIPTION 

The Sprite Generator facilitates the editing of up to 32 Sprites in the 
64's memory. The Sprite being edited is displayed on the screen. If 
a point is on, there is a large dot, if off, a small dot. The actual Sprite 
is displayed in the bottom right hand corner of the screen. Options 
for editing the Sprite are displayed on the screen continuously. The 
program allows only the editing of standard hi-res Sprites, not 
Multi-colour (it should not be too difficult to convert it to 
Multi-colour use). Sprites are stored in the top end of memory bank 
0, the video screen is in the normal place. The display is set up to 
emulate a large piece of graph paper and a coloured cursor shows 
the position on the grid, where any changes can be made. The 
Sprite is changed by positioning the cursor at the correct point and 
pressing '+' to turn that point on, or '-' to turn that point off. 

RUNNING THE PROGRAM 

The program will display, when run, the title as a Sprite. This may 
be cleared either by pressing 'SHIFT/CLR-HOME' to start editing or 
just hitting 'N' to move to the next Sprite. If a lower number Sprite is 
required, press 'E' in response to the question of which Sprite 
number. Entering the number (0-31) will then make that number 
the present Sprite. To store the Sprite press 'B', and the computer 
will write the Sprite values into DATA statements at the end of the 
program and return to the current Sprite. Pressing 'C will allow a 
choice of colour for the Sprite (0-1 5). 'M' allows the user to move 
the Sprite around the screen under control of the keyboard. X 
followed by either 'x' or V (for x or y co'ordinate expand) will 
change the status - if expanded, it will make the Sprite smaller and 
vice-versa. Finally pressing 'Q' will quit the program. 

After editing and writing the Sprite as data, listing 30000 - will 

show the data for the edited Sprites. This has to be saved or the 

Spritewillbelost. 

PROGRAM STRUCTURE 

A brief run down of the lines is as follows: 



Lines 90-100 

140-220 

260-350 

440-680 

720-790 

830-910 
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Checkto see if there is any data to read in. 

Set up Sprite pointers, positions and variables. 

Display Sprite on the screen. 

Command linkfor keyboard input. 

Add a point. 

Go to a specific Sprite. 



950-1030 : Delete a point. 

1070-1110 : Ifany Sprites, enter them into memory. 

1150-1180 : Set up an array of powers of 2. 

1220-1330 : Inputforexpandinxory. 

1370-1520 : Display control options. 

1560-1610 : Clear present Sprite. 

1650-1850 : Loop to move Sprite around the screen. 

1890-1950 : Change colour of present Sprite. 

2000-2150 : Add data to the end of the program. 

2190-2290 : Data forthe title of program. 
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10 REM SPRITE GENERATOR 

12 REM 

14 REM 

20 POKE 829.223 

29 REM 

38 REM -IF FINV SPRITE Dfi-TFI.SET UP SPRITE 

31 REM 

40 POKE 828.0 

50 READ SP 

68 IF SP>6THEN 810 

69 REM 

70 REM NO MORE SPRITE Ofi-TR 

71 REM 

80 GOSUB 860 8POKE53281 ,2:POKE53280.2 

90 DEFFNfKZZ:> = 1064+R*40+C 

108 V=53248:N0=PEEK<829> 

1 1 XL=0 : VL= 1 I XG= 1 6 : SE«2 1 : XV=23 : XX=29 

120 SC=39:PRINT"3" 

1 39 POKE 2048 . NO i POKE V+SE . 1 ! POKE V+XV . 1 

140 POKE V+XX.llPOKE V+XL .235 I POKE V+YL.190 
150 POKE V+XG.0 

160 X=255:Y=190 

169 REM 

170 REM SET UP OISPLRY 

171 REM 

180 PRfNT"SH I I I" 

1 85 L0C=64*H0 I PR I NT " B" 

198 F0RI=L0CT0L0C+62STEP3 

200 F0RJ=6T02 

210 ZZ=PEEK<I+..T> 

220 FORK=7TO0STEP-1 

230 Fl=INT ,<ZZRNDFlK<K))/flX<K>) 

240 I FH= 1 THENPR I NT " *» " m GOTO260 

250 PRINT "S. " » 

260 NEXTK 

270 NEXTJ 

280 PRINT 

290 NEXT I 

300 GOSUB 100O 

389 REM 

310 REM SPRITE SET UP ON THE SCREEN 

320 REM INPUT CHANGES 

321 REM 
330 R=0iC=0 
340 Z=FNR<0> 

350 POKEZ+54272.0 

369 GETR* : I FR*= " "THEN360 

370 POKEZ+54272 , 1 

330 I FR*= " Q " THENPR INT" rj" I POKEV+2 1 . « PR I NT " D" » I E 
HO 

390 IFR*="M"BNDC=23THEN C=0iGOTO340 
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460 I Ffl*= " M" THENC=C+ 1 i GOTO340 

410 I FR*= " II" HNDC=0THENC=23 : GOTO340 

420 I Ffi*» " II" THENC=C- 1 1 GOTO340 

430 IFR*="M"P,NDR=20THENR=0 (GOT034S 

440 IFR*="H"THENR=R+1 IGOTO340 

450 I Ffl*=» " H" flHDR=0THENR=20 1 GOTO340 

460 IFR*="rj"THENR=R-l iG0T0348 

470 I Ffl*= "«" THENR=0 : C=0 8 GOTO340 

480 I FR*= " 7}" THEHGOSUB 1 1 50 i GOTO340 

490 IFR*="+"THEN580 

500 IFR*»"-"THEN730 

510 IFR*=>"M"THEN1210 

520 IFR*="B"THEH1450 

530 IFR*="C" THEN 1400 

540 IFfl*«"X"THEN900 

550 IFR*="N"flNDN0-223<31THENN0=M0+l IGOTO130 

560 IFfl*="E"THEH660 

570 GOTO 340 

574 REM 

575 REM ADD POINT 

576 REM 

580 Z=FNflC0) 

590 Z1«PEEK<Z> 

600 IFZ1-81THEN340 

610 POKEZ,81 

620 BYTE*INT<CV8>+R*3 

630 BIT«7-<C-INT<C/8>*8) 

640 P0KEBVTE+N0*64 ,PEEK<BVTE+N0*64>0RRM<BIT> 

650 GOTO 340 

654 REM 

655 REM INPUT SPRITE # TO EDIT 

656 REM 

NO. INiriS 

€70 IFS<0ORS>31THEN660 

680 IF N0=223+STHENZZ=1 SGOTO700 

690 N0=223+S 

700 PRIHT"MSKtl!l«M«ia)^^ 

«"» 
710 IFZZ»lTHENZZ=0iGOTO340 
720 GOTO 130 

724 REM 

725 REM DELETE POINT 

726 REM 

730 Z=FNR<0) 

740 Z1=PEEK<Z> 

750 IFZ1=46THEN 340 

760 POKE Z'.46 

770 BVTE=INT(C/8>+R*3 

780 BIT=7-<C-IHT<CV8>*8> 

790 POKE BVTE+NO*64 .PEEK <BVTE+NO*64> AND C255-WJ'' 
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BIT>> 

808 GOTO 349 
304 PEM 

805 REM IF ANY DATA, SET SPRITES UP 

806 REM 

819 L0C=>SP*64 

820 FOR I=LOC TO LOC+62 
830 READ A: POKE I.fl 
840 NEXT I 

850 GOTO 50 

854 REM 

855 REM SET ARRAY WITH POWERS OF TWO 

856 REM 

860 FOR 1=0 TO 7 
870 0X<I>=2TI 
880 NEXT I 
890 RETURN 

894 REM 

895 REM INPUT FOR EXPAND 

111 PR I NT " ^«i!Mi!WW»MBW«««!WttI«"!WW«*t*»*|i»»l'"l:«H 

tfk' y OR V" 

910 GETA*:IFA*O"X"ANDA*<>"Y"THEN900 

9P0 IFfl*="X"THEN960 

930 IFPEEK<V+XV>-1THENP0KEV+XV .0 .00T0980 

940 FOKEV+XV.l 

96Q I FPEEK < V+XX > = 1 THENPOKE V+XX . ! 00T0980 

980 PR I NT " WflOT««^!W««««««^™' WBWWJW '•**•• ,l • i * ,, 

990 GOTO 340 

994 REM 

995 REM D I SPAY CONTROL OPTIONS 

996 REM 

1000 PRINT ,, M ,, SPC<26> ,, SC0NTR0LS«" 

1005 PRINTSPC<25> "SPRITE ««"V?"f-PPTT F *•• 

1010 PRINTiPRINTSPC<25V'«flE"DIT SPRITE # 

ioio PPTNT=:Pr<25>"S»4«EXT SPRITE #" 

IS^S PRlfiTSPC<25V'»1«3VE SPRITE" 

1040 PRINTSPC<25>"»:*:iL0UR CHANGE " 

1050 PRINTSPC<25V»«=PlND" 

1060 PRINTSPCC25V3+* ADO DOT" 

1070 PRINTSPC<25Vl»-« REMOVE DOT" 

10R0 PRINTSPC<:25>"aB"fiSIC DATA" 

109O PRINTSPC<25>"aa"JIT" 

110R PR I NT : PR I NTSPC < 25 >" USE CURSOR" 

1110 PP I NTSPC < 25 >" CONTROL TO" 

1 1 20 PP I NTSPC < 25 > VOS I T I ON " 

1130 PR I NTSPC < 25 > "CURSOR. " 

1140 RETURN 
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1144 REM 

1145 REM CLEAR PRESENT SPRITE 

1146 REM 

115S FORI=0TO62:POKENO*64+I .0INEXTI 

1169 FORI=0TO20 

1170 FORJ=0TO23 

1180 POKE 1064+ 1*40+ J, 46 
1 1 90 NEXT J , I : R=0 : c=6 
1200 RETURN 

1204 REM 

1205 REM MOVE SPRITE AROUND SCREEN 

1206 REM 

1210 PRINT"Mi!Il!l«ifl««fi!!MBIi!ll!ll!lSai!li!l«Wi!ll!l»JSE CURSOR K 
EVS TO MOVE THE SPRITE." 

1220 PRINT" SRETURN TO RETURN TO EDITING" 

1230 GETA*tIFA*=""THEN1230 

1240 I FA*= "»" RNDXO 1 9THENX-X+2 

1 250 I FA*= " II" ANDX> 1 THEHX=X-2 

1 260 I FA*=> " W" RNDV<254THENV= V+2 

1 270 I Ffl*= " n" RNDV> 1 THENV=V-2 

1280 POKE V+VL.V 

1290 POKE V+XG.INT<X/255> 

1300 POKE V+XL.X-INT<X/255>*255 

1319 IF R*=CHR*<13>THEN1330 

1320 GOTO1210 
1330 POKE V+XL.255 
1340 POKE V+VL.190 
1350 POKE V+XG.0 
1366 X=255:V=190 

1 370 PR I NT " *ra!M«JM«iMM««i!lfl<!lM«!!t!!l!!l«!fl 

1380 PRINT" 
M" 

1390 GOTO 340 

1394 REM 

1395 REM CHANGE SPRITE COLOUR 

1396 REM 

1 400 I NPUT " Mf!«I«««i!lia«MWIl!»Wi!»IW«Wffiai!ll!|ii|ii»liit*!j»;:n 
LOUR <0-15> ■■■■■!" tCO 
1410 IF CO<0ORCO>15THEN1400 
1420 POKE V+SC.CO 
1 430 PR I NT " mmmmMMmmmWmm 

S"s 
1440 GOTO 340 

1444 REM 

1445 REM CREATE DRTA STATEMENTS FOR 

1446 REM PRESENT SPRITE 

1447 REM 

1450 PR I NT "nBKM" rPEEK<828)+30000:"DATfl"RIGHT*fS 
TR*<NO> ,LEN<STR*<N0>>-1> 

1460 P0KE828. PEEK < 828) +1 iF0RI=0T08 
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1470 PRINTPEEK<828>+30000"DRTfl" t 

1480 FORJ=0TO6 

1490 BB=PEEK<N0*64+I*7+J> 

1500 BB*=RIGHT*<STR*<BB>.LENCSTR*<BB>>-1> 

1510 PRINTBB*;"."* 

1520 NEXT J _ , 

1530 PRINT"II »:P0KE823.PEEK<828>+1 

1540 NEXT I ..„„,.«, «. 

1 «i50 PR I NTPEEK < 828 > +30000 > " ORTR- 1 

1560 PRINT-RUHSea" 

1570 POKE 198.12 

1580 FORI=0TOlllPOKE631+I.13iHEXT I 

1590 P0KE829.N0 l END 
20900 0RTR223 

2000 1 DRTR238 . 23 1 . 1 1 9 . 1 38 . 1 46 .36 .238 

20002 0RTR226 , 38 . 40 , 1 62 . 36 . 232 . 1 5 1 
20R03 DRTA39. 0.0. 0.236. 238. 238 

20004 DRTR 1 39 . 63 . 1 69 . 202 . 68 , 1 74 , 1 38 

20005 DRTR68. 170.236.228.233.0.0 

20006 DRTR0, 0,0. 0.0-234.0 
2R007 DRTR0. 138. 0.14. 238. 0.0 

20003 DRTR162. 0.0-226. 0.0.0 
20009 PRTR0. 0.0. 0.255. 255. 255 
oqoQ7 PEM 

29993 REM SPRITE DflTR STORED FROM HERE 
29999 REM 
30001 DRTR -1 
RERDV. 
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SPRITE DEMO 

DESCRIPTION 

Sprite Demo uses two Sprites to create a display. The Sprites were 
created using the Sprite Generator program. The Data statements 
were 'screen merged' into the demo program after removing them 
from the editor by listing the Data lines and deleting the editor. As 
the name suggests, this is only a demonstration program. It makes 
full use of the colour set, expand, and movement functions. 

RUNNING THE PROGRAM 

To run the program, load, and type 'RUN'. The display will appear 
after a couple of seconds since the Sprite Data must be read into 
memory from the Data lines at the end of the program. When the 
display appears follow the instructions to expand the display 
change the colour, and move it about the screen under control of 
the cursor keys. 

PROGRAM STRUCTURE 

A brief synopsis of the program lines is as follows: 

Lines 10-80 : Read the Sprite data into memory at the required 

block. 
110-140 : Set up Sprite pointers. 

150-160 : Put Sprite on the screen. 

17n : Enables Sprites and 1. 

180-200 : Wait for key press. 

VonVH : DisableS P rites ' enlarge, reposition and re-enable. 

280-340 : LooptochangecolourofSprites. 

350-460 : Loop to move Sprites under control of the cursor 

keys. 
470-490 : Turn off Sprites and end proqram 

30000-30020 : Data for Sprites. 
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10 FORI=0TO1 

20 READ HO 

30 FORJ=0TO62 

40 READ X 

50 P0KEM0*64+J.X 

60 NEXT J 

70 POKE2040+I,NO 

% PRIHT"^r« DEMONSTRATION ^^^0 USE MORE THRH ^ . 

100 PRINT"!) ONE SPRITE TO CREATE fl DISFLAV B 

IS Sg3l ! S,S5 + S.S^1 C ^E«H AND BORDER COLOURS 
?0 POkIv+P 0?PnKEV+29.eiREM X AND V SMALL 
^ TOKEV+39 2 POKEV + 40.2:REM SPRITE COLOURS ARE RED 

lit X=130:V=150:REM COORDINATES OF SPRITES 

1 50 POKEV . X : POKEV+ 1 . V 

160 P0KEV+2..X+24JP0KEV+3.V 

III PRINT"WW»W»»WWW»M«^I^«" PICTU RE 3" 

190 PRINT" SfcHIT AHV KEY TO SEE ENLARGED PICTURE a 

200 GETA*:IFA*=""THEN200 

210 POKE V+21 .0 _^.„, 

220 PRIHT ,f :««WWI«S««««««^ , !K WSS8 B „ 

230 PRINT" 

III POKEV+23!^P0KEV + 29.3«REM X AND V ENLARGED 

250 POKEV ;X:P0KEV+1.V 

260 P0KEV+2,X+4S«P0KEV+3.V 

270 POKE V+21 ,3 __™,.,„ 

2«0 PRINT" S* CHOOSE fl COLOUR <0-9. RET TO EXIT H 

300 GETfl*:IFA*=""THEN300 

310 IFA*=CHR*<13)THEN350 

320 fl=VAL<fl*> 
|0 POKEV ±39 . A : POKE V+40 . A 



■^50 PPINT"JffP!»WW»W?«lWl?ttCffl»!l ! !W | 'W'' 

^60 PRINT" MMOVE THE PICTURE WITH THE CURSOR KEYS 

370 PRINT" a HIT RETURN TO END DEMO » 

380 GETfl*:IFA*=""THEH380 
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390~lFR*="M n RN0V<255THENV=V+l:OOTQ440 

403 I Ffi*= " rj" RNDV>0THENV»V- 1 I GOTO440 

410 I FR*= " M" RNDX<207THENX=X+ 1 i GOTO440 

420 IFR*="H"RNDX>0THENX=X-1 rGOTO440 

425 IFfl*=CHR*<13>THEN470 

430 GOTO380 

440 POKE V.X: POKE V+l ,V 

450 P0KEV+2,X+48fP0KEV+3.V 

460 GOTO380 

470 POKEV+2 1 , : PR I NT " 33" j 

480 P0KEV+33.6:P0KEV+32,14 

490 END 

30000 DRTR224 

30001 OflTR0,0,0,0,0,0.0 

30002 DRTR0.0,0,0.0,0.0 

30003 OflTR0.0,0,0,0,0.,3 
30064 DRTR0. 0.7. 31 ,255.131 .15 

30005 DRTR255. 192.7.255, 128,0,28 

30006 DRTR0. 0,28. 0,0. 14.0 

30007 ORTR0. 14.0,0.7.1 .0 

30008 DRTR7.1.0,31.255,0,15 

30009 DRTR255, 0,7, 255, 8,0,0 

30010 DRTR225 

30011 DRTR0,0,0,0,0,0,0 

30012 DRTR0. 0.0, 192,0,3,240 

30013 DRTR0, 7, 243, 0,255, 255, 240 

300 1 4 DRTR255 , 255 , 248 , 255 , 255 . 240 , 56 

30015 DRTR192, 0,56, 0,0, 112,0 

30016 DRTR0,112,0.0.224.0.0 

30017 DRTR224,0,0, 192,0,0, 192 
38018 DRTR0, 0.252. 0,0. 254.0 

30019 DRTR0. 252, 0.0, 0,0,0 

30020 DRTR-1 
RERDV. 
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CHARACTER THEORY 

USER DEFINED CHARACTERS ON THE 64 

Sprites on the 64 provide the means to define shapes and move 
them about the screen with reasonable ease, but they have their 
limitations. Only 8 Sprites can be displayed on the screen at any 
one time. If a shape the size of an ordinary character is needed, a lot 
of superfluous data is involved in defining the Sprite. In addition. 
Sprites are not obtainable directly from the keyboard, they have to 
be presented, coloured, and moved with a series of POKt 
statements orthe machine code equivalent. 

For those users who need to define their own shapes which are 
normal characters and directly usable from the keyboard, then user 
definable characters offer a solution. It is possible to replace, by 
software, the entire set of characters resident in the CBM 64. 

However, for most purposes, a number of the normal characters 
(such as the letters and figures) will probably be required in 
addition to the shapes the user may design himself. The reversed 
image of these characters is the area best suited for the user to 
place his own designed shapes, thereby leaving the normal 
character set available. . 

Every character on the 64 is designed on a grid of 8 by 8 bits 
aivinq a block of 64 bits per character, each bit is called a pixel. If the 
user examines the two characters @ and A on their grids they 
would appear as in fig. a. 



fig. a 




Note that with these characters, the bottom, left, and right hand 
edqes of the grid have been left empty. This is to prevent adjacent 
characters merging into each other when they are printed on the 
screen. Graphics characters can go right to the edge of the grid, 
they will then join up with each other, enabling them to be used to 

create pictures. „ „ ■_, u :„ 

To define characters, first draw them on an 8 x 8 grid as shown in 

fig.b. 
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fig.b 



! 



All the squares which are filled "in, will be switched 'on', and are 
therefore bright points on the screen, whereas the empty squares 
will be 'off' and thus dark and invisible. The user will have to tell the 
computer which squares to switch on and which to switch off. This 
is accomplished by giving each column of the grid a value between 
1 and 128 as shown in fig. c. 



128 J64 :32.'16 | 8 'U i 2 ! 1 
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(c) 
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fig.c 
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Look at the top row (a) of the grid and add together the values of all 
the squares which are to be 'on'. In this particular case the result is 
24. Repeat thisfor all the remaining rows (bto h). 

There are now 8 values, and these are shown in the table below. 



Row (a) 24 
Row (b) 60 
Row (c) 126 
Row (d) 255 
Row (e) 24 
Row (f) 36 
Row (g) 66 
Row (h) 129 



These 8 values are needed to inform the computer which bits 
(pixels) should be switched 'on' and which should be 'off'. 

Having designed the character on paper and calculated the 
necessary values from the drawing the user may now turn to the 

64. 

The shape of the resident characters in the 64 is stored in ROM, 
and as such cannot be altered by software. However, there is 
nothing to prevent the user copying this ROM into RAM where it 
can easily be modified. 

The ROM containing the shapes of the 64's resident characters is 
to be found at address 53248 ($D000) to 57343 ($DFFF). Because of 
the way the 64 is configured, it is not possible to access this ROM 
directly. It is sandwiched between the I/O ROM (sitting at identical 
memory addresses on the top of it) and RAM (underneath it). 
Uncovering the character ROM by switching away the overlying I/O 
ROM can easily be accomplished with POKE 1,51. However, the 
system interrupts expect to find the I/O in place, so the user 
must first disable the interrupts with POKE 56333,127. If this is 
not done, the machine will crash. The first two lines of a program to 
enable user defined characters are now ready. 

Having released the character ROM for access, the character 
data can be copied into ROM. The characters transferred in the 
program are the first 256 characters from the character ROM. To do 
this: 

FOR l-Oto 2047: REM 2048 BYTES 
POKE 12288+I,PEEK(53248+I) 
NEXT I 

All the required characters are now in RAM starting at location 
12288. The 64 is still, however, using the character ROM. 

The next step is to restore the I/O and the interrupts by: 
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P0KE1,PEEK(1)0R4 

POKE 56334,PEEK(56334)OR 1 

The computer must then be instructed to use the new character 
set, and for this another POKE is required. This is POKE 
53272,(PEEK(53272)AND240)+12. The new character set is now 
being used by the processor to generate the display. The only thing 
left to do is change the characters used, by changing the values in 
memory to those created in the grid design. If at any time the 
original character set is required, POKE 53272,21 will restore the 
pointerto the ROM image. 
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CHARACTER EDITOR 



DESCRIPTION 

This program facilitates the editing of up to 64 characters in the 64's 
memory. There are two sections to this program, the first section 
displays the characters that can be edited, the second section is the 
editing routine. . 

To choose a character to edit, move the cursor to the required 
character and enter either 'E' for edit or 'N' which clears the 
character and edits. When in edit mode, move the cursor using the 
cursor keys over the enlarged character and use the keys '+' and '-' 
to change a point. To write the character as data, enter 'B', and 
when the character has been updated, typing 'R' will return to the 
first display where the newly edited character is displayed in full 
size. 

RUNNING THE PROGRAM 

The editing of characters is like the Sprite editor except for one 
difference, the character is not changed in memory unless the '- 
key is pressed, updating the character. When run, the program 
firstly copies the character ROM into RAM. There is a long pause 
whilst this is happening, the display will then appear, after which 
just follow the controls displayed on the screen. 

PROGRAM STRUCTURE 

A brief run down of the program lines is as follows: 
130-320 ~ " " ----- - : -*- nA »" 

330-350 

360-400 

410-610 

710-770 

810-840 

1010-1170 

1210-1300 

1520-1540 

1610-1700 

1810-1910 

2010-2160 



Copy the characters into RAM. 

Define functions for editing. 

Display 'N' character. 

Input from keyboard and cursor control. 

Commands for editing character. 

Commands for choosing character. 

Display character set options. 

Display editing options. 

End program. 

Update character. 

Edit character. 

Add 'Basic' data statements to the end of program. 
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1 REM CHARACTER BUILDING 

2 REM *********************** 

3 REM 

130 POKE 53280. 2 i POKE 53281.2 

140 PRINT"a31 * CHARACTER BUILDING *" 

150 POKE 828.0 

160 RUN 170 

170 CS= 12288 

175 POKE 56334. PEEK < 56334 >AND254i POKE 1 .PEEKC 1 >RND251 

180 FOR I=CS TO CS+2047 

190 POKE I.PEEK<53248+I-CS> 

200 NEXT I 

205 POKE 1,PEEK<1>0R4jP0KE 56334, PEEK < 56334 > OR 1 

210 PR I NT "35 RUN 280" 

220 PR I NT "RUN" 

230 POKE 198.3 

240 POKE 631 .19 

250 POKE 632.13 

260 POKE 633.13 

270 END 

280 S»1024sCL=40 

290 CS= 12288 

300 CR=0sLN=30000+PEEK<828> 

310 P=24:BO=l sBR=l 

320 POKE 53280. 2 « POKE 53281.2 

330- 0EFFNA<XX>«=S+R*2*CL+2*C!REM SCREEN POKE LOCATION 

340 DEFFNB<XX>=8*R+CiREM SCREEN POKE VALUE FOR CHAR 

350 GOTO 10O0 

360 PRINT'TW'iQOSUB 1200 

370 PR I NT "S" : :FOR I«0 TO 7 

380 PRINT" "iPRINT 

390 NEXT I jF-0 

400 PR I NT " S" » R=0 1 C=0 

410 Z=FNA<8> 

420 IF F=0 THEN 460 

430 IF Z=ZL THEN 450 

440 POKE ZL.IL:ZL=ZiIL=PEEK<ZL> 

450 POKE Z+54272.0 

460 POKE Z+54272,0 

478 GET H*s IF A*="" THEN 478 

480 POKE Z+54272,1 

490 REM 

500 REM CURSOR CONTROL OPTIONS 

585 REM 

510 IF A*="Q" THEN 1500 

520 IF A*="H" AND C»? THEN C=0iGOTO 410 
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530 IF fi*="M" THEN C=C+1 :GOTO 410 

549 IF Fl*-"!!" AND C=0 THEN C«7iG0T0 418 

550 IF R*="ir THEN C=C-1 iGOTO 410 

560 IF A*="*r AND R«7 THEN R=8tGOT0 410 

570 IF A*<="«" THEN R=R+1 sGOTO 410 

580 IF F\*="~l" AND R-0 THEN R»7lG0T0 410 

590 IF fl*-"n"..THEN R=R-1 iGOTO 410 

600 IF fl*=»"a" THEN 408 

610 IF F=l THEN 600 

695 REM 

700 REM DEFINE NEW CHARACTER OPTIONS 

7^5 REM 

710 IF R*="+" THEN POKE Z.8I1GOTO 410 

720 IF fl*«"-" THEN POKE Z,46:GOT0 410 

73PI IF Pl*»" = " THEN 1600 

740 IF FI**".T' THEN 378 

750 IF R*="R" THEN 1000 

768 IF fl*="B" THEN 2000 

770 GOTO 410 

-?<^5 REM 

800 REM REVIEW CHARACTER SET OPTIONS 

805 REM 

810 CR=FNB<0> „ „„ 

82R IF fl*="N" THEN POKE 53272.21 »O0T0 360 

830 IF fl*="E" THEN POKE 53272,21 lF=8. GOTO 1808 

840 GOTO 410 

995 REM 

1000 REM DISPLAV CHARACTER SET OPTIONS 

1010 POKE 53272. <PEEK<53272>AND240>+12lR=4:C«8 

1020 ZL«FNA<0> :IL-32 

1030 F=l:PRINT"3"i 

1040 PRINT" Ml A B C D E F G" iPRINT 

1050 PRINT"H I J K L M N 0" iPRINT 

1060 PRINT"P Q R S T U V W" iPRINT 

1870 PPINT"X V Z C £ 3 t 4-'' i PR I NT 

1«80 PRINT" ! "CHR*<34>" tt * V. * '".PRINT 

10O9 PRINT"< >*+.-. /*' iPRINT 

1100 PRINT"0 12 3 4 5 6 7" I PR INT 

1110 PRINT"8 9 t t < - > ?"iPRINT 

1 1 28 PR I NT " 3" SPC < 25 V 30PT I ONSB" : PR I NT 

1138 PRINTSPC<22>"SN NEW CHAR"" J PR I NT 

1140 PRINTSPC<22VSE EDIT CHAR!" I PR I NT 

1150 PRINTSPCC22V33 QUIT"" 

1160 BC=PEEK< 55296 > 

1170 GOTO 410 

1195 REM 

1200 REM EDIT OPTIONS 

1285 REM 

1210 PRINT"SH"SPC<25VSDPTI0NS1" I PR I NT 

1220 PRINT 
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1238 PRINTSPC<P>"3+« RDD DOT": PR I NT 

1240 PRINTSPC<PVSH« ERASE" j PR I NT 

1250 PRIHTSPCCPVSN" UPORTE" jPRINT 

1260 PRIHTSPC<P)"SR« REVIEW" SPRINT 

1270 PRIMTSPCCPVBKW QUIT" I PRINT 

1280 PRINTSPCXPVaS" ROD DRTR" (PRINT 

1 290 PR I NTSPC <: P+ 1 > " STATEMENT " 

130Q RETURN 

1495 REM 

1590 REM QUIT 

1505 REM 

1510 REM 

1520 POKE 53272.21 

1530 POKE 5329 1.6t POKE 53280.14 

1540 PRINT"OQ BVE!" 

1550 END 

1595 REM 

1600 REM UPDATE 

1605 REM 

1610 PRIHT"HT J 

1620 X=»CS+8*CR 

1630 FOR R=0 TO 7:SM=0 

1640 FOR C=0 TO 7sD=7-C 

1650 SM=SM-2tD*<PEEK<FNA<0>>=81> 

1660 NEXT C 

1670 POKE X+R.SM 

1680 PR I NTSRC < 1 7 > J SM s PR I NT 

1690 NEXT RiR=0!C=0 

1700 GOTO 410 

1795 REM 

1800 REM EDIT CHAR 

1805 REM 

1810 PRIHT'TJ" 

1820 X=CS+8*CR 

1830 FOR R=0 TO 7 :V=PEEK<X+R> 

1840 FOR C=0 TO 7tZ=FNfl<0> 

1850 Q=46:V-V*2 

I860 IF V>255 THEN Q«81 iV»V-256 

1870 POKE Z.QrPOKE 2+54272,1 

1880 NEXT C.R 

1890 R=0sC=0 

1900 GOSUB 1200 

1910 GOTO 410 

1995 REM 

2000 REM ODD DRTR STATEMENTS 

2005 REM 

2910 X=CS+8*CR 

2020 PRIHT-nSBBMHWIiaS" 

2030 PRINTLH;"DATA": 

2040 PRIHTRIGHT*<STR*<X>.LEtKSTR*<X>>-Oi 

2050 FOR I«X TO X+7 
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£870 raiHTRXOTT*<STR*<PEEK<I».LEH<8TR*<PEEK<I>»-l>i 

2038 NEXT I 

2RO0 PRINT SPRINT "RUN H" 

2180 POKE 82S.PEEK<828>+1 

2110 POKE 198,9 

2120 FOR 1=0 TO e 

2130 POKE 1+631,13 

2140 NEXT I 

2160 END 

READY. 
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INTRODUCTION 

The routines that follow in this chapter are for inclusion within 
programs written by the user. They are very useful for setting up 
screen displays. 

This chapter is split into four sections. Each section concerns one 
aspect of producing screen displays with machine code routines to 
implement them. These routines are in the form of basic loaders 
that must be run to use the example programs following them. 

Some of the loaders in the later sections will contain routines from 
previous sections. This is because they are required for the 
demonstration programs to work. 

All the routines that follow can be entered into memory at the same 
time without any of them over-lapping. 



96 



DISPLAY MANAGEMENT 



THE FIRST ROUTINE 



The first Machine Code routine in this section is used by most of the 
other routines to calculate the 64's screen addresses; the 
addresses are returned in x and y. This routine is never called from a 
Basic program, only by the other routines and should not be used on 
its own, as this will cause a Machine Crash. This routine will also" 
trap any errors and set an error flag. 



SIMPLE DISPLAY ROUTINES 

The first five routines in this section are the simplest routines in 
Display Management and provide an insight into the methods 
used in the more sophisticated routines in this section. All five 
routines rely on the initial calculation of the screen memory ad- 
dress of the first character in the line or block to be displayed, and 
this is usually the top left corner character of that line or block. The 
address is calculated from the line and column numbers which 
designate the co-ordinates of the character, using the first routine 
starting at $7000 (hex). All the display functions are performed by 
the calculation of screen memory addresses using the starting 
address as a reference point. The 1000 bytes of the screen memory 
in the 64 can be subdivided into 25 smaller blocks (lines), each of 40 
locations. 

Drawing a line from the top to the bottom of the screen in 
column 5 is simply a matter of filling every fifth location in each of 
the 25 sub blocks with the desired ASCII code value. Drawing a 
horizontal line across the screen simply means filling all the 
locations in one line block of memory with the specified character. 
The starting position within a sub block is determined by the 
starting screen address and the length of the line is determined by a 
variable transferred from the Basic program. Filling a block of the 
screen with a specified character simply means repeatedly drawing 
horizontal lines until the block is filled. To reverse field a line or a 
block of the screen, the character in each screen memory location 
has a logical Exclusive OR operation performed on it. 

All the Machine Code routines have been turned into Basic 
loaders and presented as such in this book. They have also been 
programmed so that they are chained together and should be 
entered in ascending order of line numbers. 
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SCREEN ADDRESSES 

The subroutine used to calculate the screen addresses from values 
in locations 89 for column and 90 for line, is only called by other 
routines and will cause the 64 to crash if called on its own. This 
routine also contains the errorflag in location 785. 

HORIZONTAL BAR 

SYS (28800) 

A horizontal bar of any 64 characters is drawn by this routine on the 
screen, with a single character space resolution. The position of the 
left hand end of the bar is determined by two variables: column 
number and line number. The length of the bar can be a integer 
from 1 to 255 character spaces, although the maximum line length 
will be equal to the screen width. A variable allows the character 
used to draw the line to be defined in the Basic calling program. 
The routine requires the following variable locations: 

89 column number of horizontal line start (left end). 

90 screen line number of horizontal line start. 

91 length of horizontal line. 

784 ASCII code value of characters usedin horizontal line. 
786 the screen colour is held in this location. 
This routine is called from a Basic program with SYS (28800). 

VERTICAL BAR 

SYS (28832) 

This routine draws a vertical bar of any 64 character on the screen 
with a single character space resolution. The position of the left 
hand end of the bar is determined by two variables: column 
number and line number. The length of the bar can be an integer 
from 1 to 255 character spaces, although the maximum line length 
will be equal to the screen width. A variable allows the character 
used to draw the line to be defined in the Basic calling program. 
The routine requires the following variable locations: 

89 column number if vertical line start (top end). 

90 screen line number of vertical line start. 

91 length of vertical line. 

784 ASCII code value of characters used in vertical line. 
786 this is the colour location. 
This routine is called from a Basic program with SYS (28832). 
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BLOCK FILL 

SYS (28896) 

This routine fills a designated block of the screen with a previously 
defined character. The position of the top left corner of the block is 
determined by two variables: column number and line number. 
The width of the block can be an integer from 1 to 255 character 
spaces. Also, the height of the block may be an integer value from 1 
to 255, although in practice the size of the block is restricted to the 
screen dimensions. A variable allows the character used to fill the 
block which is to be defined in the Basic calling program. This 
routine requires the following variable locations: 

89 column number of block start. 

90 screen line number of block start. 

91 width of block. 

92 height of block. 

784 ASCII code value of characters used in block. 
786 the screen colou r is held in th is location. 
This routine is called from a Basic program with SYS (28896) 

INVERT 

SYS (28960) 

Invert reverses the field of all characters within a block of screen 
area. The position of the top left corner of the block is determined 
by two variables: column number and line number. The width of 
the block can bean integer from 1 to 255 character spaces. Also the 
height of the block may be an integer value from 1 to 255, although 
in practice the size of the reverse field is restricted to the screen 
dimensions. A variable allows the character used to fill the block to 
be defined in the Basic calling program. This routine requires the 
following variable locations: 

89 column number of reverse block start (top left). 

90 screen line number of reverse block start. 

91 width of reverse block area. 

92 height of reverse block area. 
786 is the colour location. 

This routine is called from a Basic program with SYS (28960). 
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BORDER 

SYS (29024) 

As its name implies, this routine will draw a thin line border on a 
specified area of the screen. The position of the top left corner of the 
border is determined by two variables: the column number and the 
line number. The width of the border can be an integer from 1 to 
255 character spaces. The border height can also be any integer 
from 1 to 255 although the maximum size of the border that can be 
displayed is restricted to the outside edge of the screen. This 
routine requires thefollowing variable locations: 

89 column number of border start (top left). 

90 screen line number of border start. 

91 width of border. 

92 height of border. 
786 location of colour. 

This routine is called with SYS (29024). 

CURSOR CONTROL 

The Machine Code cursor control routine, a part of this package, 
is called by SYS (29216), but can be anywhere in the memory, 
oroviding it is protected from being overwritten by Basic. The 
number of times the routine is called depends upon the values 
placed in locations 87 and 88. This routine uses a loop to print 
characters at specified points. If the user calls this routine on its 
own, he must POKE the appropriate values into locations 87 and 88. 
POKE 87, x co-ordinate value 
POKE 88, y co-ordinate value 
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10 REM 

20 REM ******************************* 

30 REM *ROUTINE TO CALCULATE SCREEN * 

40 REM *ADDRESS FROM VALUES FOR * 

50 REM * COLUMN IN 89 * 

60 REM * LINE IN 90 * 

70 REM *ADDRESS RETURNED IN 91 AND 92* 

80 REM *THIS ROUTINE IS ONLV CALLED * 

90 REM *BV OTHER ROUTINES IN THE * 

100 REM*PACKAGE.DO NOT USE BV ITSELF.* 

110 REM*ERROR FLAO IN LOCATION 785 * 

1 20 REM******************************* 

130 1=28672 I T=0 

140 READ A 

150 IF A=-l THEN 190 

160 T-T+AsPOKEI ,A 

170 1=1+1 

180 GOTO 140 

190 PR I NT "ROUTINE 1 i" 

200 IF T=11973 THEN PRINTMHSEHTERED O.K"iOOTO 1000 

210 PR I NT "JfflENTERED INCORRECTLY" 

220 END 

230 DATA169.0. 141 .17.3,165,89 

240 DATA48. 66. 281 ,40,176,74,165 

250 DATA90.48.82,201,25.176.90 

260 OATA169,0.133,87.133,88,133 

270 DATA94. 133.95, 165.90.240, 15 

280 DATA170,24,165,87,105,48,133 

290 DATA87.144.2,230,88.202,208 

300 DATA242.24,165,87,101,89,133 

310 DATfl87.165.88.105,4,133,88 

320 DATR24 ,165,87 . 133,94, 165 .88 

330 OATA105.212. 133.95,96, 169.1 

340 DATR141 ,17,3,169,0,133,89 

350 DATA76.7. 112. 169.2, 141 .17 

360 DATA3.169.39.133.89.76.7 

370 DATA112.169.3.141.17.3.169 

380 DATA0,133.90,76,7.112,169 

390 DRTA4.141.17.3,169,24.133 

400 DATA90.76,7,112,-1 

1000 REM 

1010 REM 

1 020 REM******************************* 

1030 REM*DRAW A HORIZONTAL BAR OF ANV * 

1040 REM*64 CHARACTER. CHARACTER STORED* 

1050 REM* IN 784. COLUMN START IN 89. * 

1060 REM*LINE START IN 90. LENGTH OF * 

1070 REM*LINE IN 91. COLOUR IN 786. * 

1080 REM*ROUTINE CALLED BV SYS < 28800 > * 

1 090 REM******************************* 

1100 1=28800 :T=0 
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1118 READ H 

1120 IF R=-l THEN 1160 

1130 POKE I,A:T=T+A 

1140 1=1+1 

1150 GOTO 1110 

1160 PR I NT "ROUTINE 2:" 

1170 IF T=3095 THEN PR I NT " KKENTERED O.K"sGOTO 2000 

1188 PRINT"HSENTERED INCORRECTLV" 

1190 END 

1200 DATA72,152,72,138,72.32,0 

1210 DHTflll2.164.9K173.16-3.145 

1220 DATAS7.173.18,3.145,94.136 

1230 DRTI=I208 .243 . 104 . 170 . 184 . 1 68 , 104 

1240 OATA96.-1 

2000 REM 

2010 REM 

2020 REM******************************* 

2830 REM*DRAW A VERTICAL BAR OF ANY 64* 

2040 REM*CHARACTER. CHARACTER STORED * 

2850 REM* IN 784. COLUMN START IN 89, * 

2060 REM*LIHE START IN 90. LENGTH OF * 

2070 REM*LINE IN 91, COLOUR IN 786. * 

2080 REM*ROUTINE CALLED BV SVSC 28832 > * 

2098 REM******************************* 

2100 1=28832 :T=0 

2118 READ A 

2120 IF fl=-l THEN 2160 

2130 POKE I,A:T=T+fl 

2140 1=1+1 

2150 GOTO 2110 

2160 PR I NT "ROUTINE 3s" 

2170 IF T=5296 THEN PRINT'-WSENTERED O.K.":GOTO 3800 

2180 PRINT-'KBENTERED INCORRECTLV" 

2190 END 

2280 DATA72,152,72,138,72,32,0 

2218 DRTA112, 160. 8,166. 91 .173.16 

2220 DATA3.145,87.173,18,3.145 

2230 DATA94.24.165.S7.105.40.133 

2240 DATA87,133,94,165,88.105.0 

2250 DHTA133 .88 . 185 .212 . 133 .95 .202 

2260 DATA203.224.104.170,104,168,104 

2270 DATH96.-1 

3800 REM 

3010 REM 

3028 REM******************************* 

3030 REM*FILL A BLOCK OF THE SCREEN * 

3040 REM*WITH A SPECIFIED CHARACTER. * 

3058 REM*CHARACTER STORED IN 784, TOP * 

3060 REM*LEFT COORDINATES IN 89 < COL > * 

3070 REM*AND 90<LINE>, HEIGHT OF BLOCK* 

3080 REM*IN 91. WIDTH IN 92. AND COLOUR* 
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3090 REM* IN 786. * 

3100 REM*ROUTINE CALLED BV SVS< 28896 > * 

3110 REM******************************* 

3120 1=28896 iT=0 

3130 READ fl 

3140 IF A=-l THEN 3180 

3150 POKE I.A:T=T+R 

3160 1=1+1 

3170 GOTO 3130 

3180 PR I NT "ROUTINE 4:" 

3190 IF T=5588 THEN PRINT"HHENTERED O.K. ": GOTO 4000 

3200 PRINT-'XKENTERED INCORRECTLV" 

3210 END 

3220 DATA72.152,72,138,72,32,0 

3230 DATA1 12. 166. 92. 164. 91, 136. 173 

3240 DRTR16,3, 145.87, 173, 18,3 

3250 DRTR145 .94 . 136 . 16 .243,24 . 165 

3260 DRTH87, 105,40,133,87, 133,94 

3270 DATA 144, 4. 230. 88. 230. 95. 202 

3280 DRTR208.222,104.170,104,168,104 

3290 DRTR96.-1 

4900 REM 

4010 REM******************************* 

40k* REM* INVERT ft BLOCK OF THE SCREEN * 

4030 REM*TOP LEFT COORDINATES IN 89 * 

4040 REM*<COL> RND 90CLINE), HEIGHT IN* 

4050 REM*91 AND WIDTH IN 92. COLOUR IN* 

4060 REM*786. * 

4070 REM*ROUTINE CALLED BV SVSC28960> * 

4080 REM******************************* 

4090 I=28960sT=0 

4160 READ A 

4110 IF fl=-l THEN 4150 

4120 POKE I.AiT=T+A 

4130 1=1+1 

4140 GOTO 4100 

4150 PR I NT "^ROUTINE 5s" . 

4160 IF T=5859 THEN PR I NT " UNENTERED O.K. ": GOTO 5000 

4170 PRINT"JfflENTERED INCORRECTLV" 

4180 END 

4190 0ATA72, 152,72, 133,72,32,0 

4200 DRTR112. 166.92. 164.91 ,136.177 

4216 DATA87,73.128,145,87,173,18 

4220 DATA3. 145. 94. 136. 16. 242. 24 

4230 DRTR165,87.105,40,133,87,133 

4240 DRTR94. 144,4.238.88,230,95 

4250 DRTR202, 208. 221 .104.170.104.168 

4260 DRTR 104, 96.-1 

5000 REM 

5610 REM******************************* 

5020 REM*DRRW fi BORDER OF RNV SIZE.RNV* 
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5030 REM*LOCRTION, AND ANY COLOUR. TOP* 
5040 REM*LEFT COORD I NOTES ORE: * 
5050 REM* COLUMN IN 89 * 
5660 REM* LINE IN 90 * 
5070 REM* WIDTH IN 91 * 
5080 REM* HEIGHT IN 92 * 
5090 REM* COLOUR IS STORED IN 786. * 
5100 REM*ROUTIHE COLLED BV SVS< 29024 > * 
5110 REM******************************* 

5129 I=29024:T=0 

5130 RERD Fl 

5140 IF R=-l THEN 5180 

5150 POKE I ,R:T=T+fl 

5160 1=1+1 

5170 GOTO 5130 

5180 PR I NT "ROUTINE 6:" „,.„,.„,„. 

5190 if T=20557 THEN PR I NT " CENTERED 0. K. " JGOTO60O6 

5200 PR I NT "UNENTERED INCORRECTLY" 

5210 END 

5220 DRTR72.152,72,133.72.32,0 

5230 DRTR1 12 . 165 .87 , 133 ,89 , 165 ,88 

5240 0HTR133, 90. 169, 100.141 .16,3 

5250 DRTR32.212. 113.24. 165.87. 105 

5260 DRTR41 . 133,87 . 133 .89 . 165 .88 

5270 DRTR105.0. 133.88, 133.90. 169 

5280 DATR101,141,16,3,32,239.113 

5290 DRTR24.165.S9.101.91.133.87 

5300 DRTR198 ,87 , 165,90, 105 ,0 , 133 

5310 DRTR88, 169. 103, 141 ,16,3,32 

5320 DRTR239 . 1 13 . 165 ,89 . 133 .87. 165 

5330 DRTR90. 133.88. 166.92. 198.87 

5340 DRTR202,202,24, 165,87, 105.40 

5350 DRTR133.87, 165.88. 105.0. 133 

5360 DRTR88,202.203,240. 169,99, 141 

5370 DRTR16.3.32.212.113.104.170 

5380 DRTR104 . 168 , 104,96 , 164 ,91 , 165 

5390 ORTR87.133.94.165.88.24.105 

5400 DRTR212 . 133.95 . 173 . 16,3, 145 

5410 DRTR87.173.18.3.145.94.136 

5420 DRTR208 , 243 , 96 . 1 60 , , 1 66 , 92 

5430 DRTR202.202. 173. 16.3. 145,87 

5440 DRTR24.165,87,133.94.165,88 

5450 OATA105 ,212 . 133 .95 . 173 , 18 ,3 

5460 DRTR145.94,24,165,87,105.40 

5470 DRTR133.87,165.88.105.0.133 

5430 DRTR88. 202. 208, 219, 96,-1 

6000 REM 

6610 REM******************************* 

6020 REM*ROUTIHE TO PLRCE THE CURSOR * 

6030 REM*RT fi LOCRTION ON THE SCREEN * 

6040 REM*WHOSE COORDINATES ARE STORED * 
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DEMO 

The loader on pp. 101-5 should be loaded and run once before 
using this demo. 

DESCRIPTION 

This program is only intended as a demo of some of the Machine 

Code routines included in the Display Management section. The 

Code routines used are as follows: 

CURSOR CONTROL-SYS (29216) 

HORIZONTAL LINE-SYS (28800) 

VERTICAL LINE-SYS (28832) 

BORDER -SYS (29024) 

BLOCK DISPLAY-SYS (28896) 

BLOCK REVERSE - SYS (28960) 

PROGRAM STRUCTURE 

The lines of interest in the program are as follows: 

130-145 : Limit memory and clear pointers. 

214 : Setscreen and border colours. 

215-245 : Uses the Border routine to set up and display all the 

necessary borders on the screen. 
295-335 : Sets upthe vertical and horizontal bars. 

400-405 : This uses the block reverse routine to display the 

character input line. 
480-630 : These lines use the cursor control routine to set up 

the text on the screen. Each item of text is held as 

three elements, they are: column, line and text. 
730-740 : This routine highlights the function currently 

selected from the menu. 
780-800 : This routine removes the highlighted function 

when another is selected. 
940-960 : This is the error message (record full), it is 

displayed using the cursorcontrol routine. 
1040-1070 : Highlights the description and places the cursor in 

the next available line awaiting an input. 
1120-1140 : If the input is an up arrow then the program exits 

the current section and moves to the next. 
1180-1185 : Removesthehighlightfromthedescription. 
1250-1300 : Reverse field to highlight the Quantity and place 

cursor on the next available line awaiting input. 
1340-1345 : Remove highlightfrom Quantity. 
1410-1460 : Reverse field to highlight Cost and place cursor on 
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6050 REM* IN 87=LINE AND 8S=C0LUMN. * 
6060 REM*ROUTINE CALLED BV SVSC29216^* 
6070 REM******************************* 

6089 1=29216 :T=0 

6090 READ A 

6100 IF «=-! THEN 6140 
6110 POKE I.A:T=T+A 
6120 1=1+1 
6130 GOTO 6096 

iil§ OTIs^l'-THEN p".hNT"*WENTERED O.K.":GOTO 6240 
6160 PRINT"MSENTERED IMCORRECTLV" 

6170 END 

6180 DATA72.152,72,138.72,169.19 

6190 DATA32,22,231,165,87,240,9 

6200 DRTA169, 17. 32,22.231.198.87 

6210 DATR208 .247 . 165,38 .240,9 , 169 

6220 DAT A29. 32. 22. 23 1.1 98. 88. 208 

6230 DATA247, 104, 170, 104, 168, 104, 96,-1 

6240 POKES 1 ,0:POKE52,112 

6250 P0KE55 , 8 : P0KE56 , 1 1 2 : CLR : NEW 

RE ADV. 
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1500-1505 
1560-1570 
1610-1620 
1660-1665 
1720-1750 

1790-1810 

1880-1900 

1940-1945 
2000-2010 
2060-2170 

2210-2215 
2260-2270 
2370-2380 
2240-2475 



2520-2525 



the next available line awaiting input. 

Remove highlight from Cost. 

Reverse field to highlight Total. 

Place cursor at position to display total. 

Remove highlight from total. 

Moves the cursor to the location for prompt and 

displays prompt. 

Uses the Horizontal Bar routine to delete the 

prompt. 

Calculates the highlights the grand total. The 

cursor routine is called to display the total. 

Remove highlight from total. 

Reverse to highlight name and address. 

Move cursor to the first position on the name and 

address section. 

Remove highlight from name and address. 

Remove highlight from update and return to select. 

Reverse to highlight delete function. 

Using the Reverse block routine, delete blocks of 

text from the screen by replacing them with 

spaces. 

Using horizontal line delete lines, by replacing 

them with a space character. 



When you are entering the address, finish each line with a comma 
and then press the return key. To exit the address mode enter a full 
stop and press the return key. 
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10 REM ******************************** 
15 REM *DEMONSTRATION PROGRAM TO SHOW * 
20 REM *SOME OF THE APPLICATIONS FOR * 
25 REM *THE FOLLOWING ROUTINES IN THE * 
30 REM * GRAPH IS PACKAGE: * 
35 REM *CURSOR CONTROL - SVS < 292 165 * 
40 REM *HORIZONTAL LINE- SVS < 288805 * 
45 REM *VERTICHL LINE - SVS < 288325 * 
50 REM * BORDERS - SVS< 29024 5 * 
55 REM *BLOCK OISPLAV - SVS < 28896 5 * 
60 REM *BLOCK REVERSE - SVS < 28968 5 * 
65 REM *THIS PROGRAM IS JUST PART OF A* 
70 REM *HVPOTHETICAL APPLICATION AND * 
75 REM *IS ONLV INTENDED AS A DEMO * 
80 REM ******************************** 

138 P0KE55,8:P0KE56.112 

140 REM * LIMIT TOP OF MEMORV 

145 P0KE51 .0:POKE52,112sCLR 

150 T»0:GT=0:L=4:LA=18 

160 PR I NT "3" 

170 REM 

180 REM 

199 REM * SET UP BORDERS 

200 REM 
210 REM 

21 4 P0KE5323 1,12: POKE53280 , 2 

215 C=l 

228 P0KE89 . : POKE90 . 8 : P0KE9 1 . 38 : P0KE92 . 1 5 

225 P0KE786 , C : SVS < 29024 > 

230 P0KE89 . 8 : P0KE98 -15: P0KE9 1 . 1 8 : P0KE92 . 1 

235 P0KE786 , C : SVS <. 290245 

246 P0KE89 , 20 : P0KE98 .15: P0KE9 1 , 1 8 : P0KE92 , 1 

245 P0KE786 . C : SVS < 29024 5 

250 REM 

260 REM 

270 REM * SET UP HORIZONTAL AND 

275 REM * VERTICAL BARS 

280 REM 

290 REM 

295 C=l 

300 P0KES9 . 20 : POKE90 . 2 : P0KE9 1.9: P0KE784 . 84 

385 P0KE786 , C : SVS (. 28832 5 

310 POKE39,25:POKE90.2:POKE9i .9:P0KE784.84 

315 P0KE786,C : SVS C 288325 

320 P0KE89 .31: P0KE98 . 2 : P0KE9 1.9: P0KE784 . 84 

325 P0KE7S6.C:SVS<238325 

330 P0KE89 . 30 : POKE90 .11: P0KE9 1.7: P0KE784 . 70 

335 P0KE786,C : SVS C 288005 

340 REM 

350 REM 

360 REM * DISPLAV CHARACTER TO INDICATE 
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376 REM * ADDRESS INPUT LIMITS 

380 REM 

390 REM 

408 P0KE89 . 2 : POKE90 ,18s P0KE9 1.16: P0KE92 . 5 

405 P0KE784 ,100: P0KE786 . C : S VS < 28896 > 

410 REM 

429 REM 

430 REM * SET UP SCREEN TEXT USING 

431 REM * CURSOR 

435 REM * CONTROL ROUTINE ERCH ITEM OF 
440 REM * TEXT IS HELD RS THREE ELEMENTS 
445 REM * IN A DRTfl STATEMENT - THEV ARE 
450 REM * COLUMN #, LINE #, AND TEXT 
460 REM 

479 REM 

480 DAT A4. 2. DESCRIPTION 
490 DRTR21,2,QTV 

500 DATR26.2.C0ST 

510 DATA32.2,T0TflL 

520 DATR25. 12. TOTAL 

530 DATA3.16.NAME & ADDRESS 

540 DAT A23. 16, FUNCTION - ? 

550 DATA23,18,1 - UPDATE 

560 DATR23.26.2 - DELETE 

570 DATR23.22.3 - EXIT 

580 FORQ=1TO10 

590 RERO A: P0KE88.fi: REM * COLUMN # 

600 RERDR. -P0KE87.fi: REM * LINE # 

610 SVSC29216) : REM * MOVE CURSOR 

620 RERDR*: PR I NT"*' A*: REM * DISPLAV TEXT 

630 NEXTQ 

640 REM 

650 REM 

€£0 REM * SELECT AND RVS FEILD ACTIVE 

665 REM * SCREEN FUNCTION FROM MENU 

670 REM * ENCLOSED IN BOTTOM LEFT BORDER 

680 REM 

690 REM 

700 REM 

710 REM * RVS TO HIGHLIGHT WORD FUNCTION 

715 REM * IN MENU 

720 REM 

730 P0KE89 . 23 : P0KE98 . 1 6 : P0KE9 1 , 1 2 : P0KE92 . 1 

735 P0KE786 . 2 : SVS (. 28960) 

740 GETfl* : I FA*= " " THEN740 

750 REM 

760 REM * RVS TO REMOVE HIGHLIGHT FROM 

765 REM * 'FUNCTION' 

770 REM 

780 P0KE89 . 23 : POKE90 .16: P0KE9 1.12: P0KE92 , 1 

785 P0KE786,! : SVS (28960 > 
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790 R=VRL<fl*> IONRGOTO830. 2300. 2630 

890 GOTO640 

810 REM 

820 REM 

830 REM * "UPDATE FUNCTION DEMO ONLV 

840 REM 

m m 

870 REM * RVS TO HIGHLIGHT 'UPDATE' 

875 REM * IN MENU 

880 REM 

890 P0KE89 . 23 t POKE90 .18! POKES 1.101 POKE92 . 1 

895 POKE786,2:SVS<28960> 

900 IFL<10THEN1040 

910 REM 

920 REM * CURSOR CONTROL TO DISPLAY 

925 REM * ERROR MESSAGE 

930 REM 

940 P0KE87 . 12 :P0KE85 ,2 :SVS<29216> 

950 PRINT" SfSRECORD FULL!" 

960 GOTO 1888 

970 REM 

980 REM * INPUT DESCRIPTION 

399 REM 

1000 REM 

1010 REM * HIGHLIGHT 'DESCRIPTION' AND 

1015 REM * PUT CURSOR TO 

1020 REM * DISPLFIV INPUT ON LINE 'L'. 

1030 REM 

1040 P0KE89 .4 IPOKE90 .2 :POKE91 . 1 1 8POKE92 . 1 

1045 POKE786,2:SVS<28960> 

1050 P0KE87.L:P0KE88.4iSYS<29216> 

1060 D**"" 

1070 GETR*iIFA*=""THEN1070 

1080 REM 

IF INPUT IS 't' THEN ABORT TO 
NEXT SECTION AND 

REMOVE HIGHLIGHT FROM 
'DESCRIPTION' 
1110 REM 
1120 IF A*<>"t "THEN 1130 

1 125 P0KE89 .4 :POKE90 .2 :P0KE91 . 1 1 :P0KE92 . 1 

1 126 P0KE786 , 1 sSVSC 28960? :GOTO2000 

1 130 D*=D*+fi* ! IFH**CHR*< 13JTHENG0T01 180 

1140 PRINT"B"fi*s IGOTO1070 

1150 REM 

1160 REM * REMOVE HIGHLIGHT RVS FROM 

1165 REM * 'DESCRIPTION' 

1170 REM 

1 1 80 P0KE89 . 4 ! POKE90 . 2 : P0KE9 1 . 1 1 I P0KE92 . 1 

1 18,5 P0KE736, 1 :SVS<28960) 
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REM 


* 


1095 


REM 


* 


1100 


REM 


* 


1105 


REM 


* 
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1190 REM 

1200 REM * INPUT QUANTITY 

1210 REM 

1220 REM * RVS FEILD TO HIGHLIGHT 'QTV' 

1225 REM # AND MOVE CURSOR TO 

1230 REM * DISPLAV INPUT ON LINE 'L'. 

1240 REM 

1 250 P0KE89 .21: POKE90 . 2 s P0KE9 1 , 3 1 P0KE92 . 1 

1 255 F0KE786 . 2 I SVS < 28960 > 

1 260 POKES? , L : P0KE83 . 2 1 : S VS < 292 1 6 > 

1270 Q*="" 

1280 GETA*:IFfl*=""THEN12S0 

1 290 Q*=Q*+R* : IFA*=CHR*< 1 3) THENGOTO 1340 

1 300 PR I NT " BT A* > :GOTO 1 230 

1310 REM 

1320 REM * REMOVE RVS HIGHLIGHT FROM 

1325 REM * 'QTV 

1330 REM 

1 340 P0KE89 .21: POKE90 . 2 : P0KE9 1.3: P0KE92 . 1 

1345 POKE?86,1:SVS<28960> 

1350 REM 

1360 REM * INPUT COST 

1370 REM 

1380 REM * RVS TO HIGHLIGHT 'COST' AND 

1385 REM * FUT CURSOR ON LINE 'L' 

1390 REM * TO DISPLAY INPUT 

1400 REM 

1410 P0KE89 . 26 ! POKE90 . 2 1 POKE9 1 . 4 I P0KE92 . 1 

1415 POKE786.2:SVS<28960> 

1420 P0KE87.L:P0KE88.26:SYS<29216> 

1430 C*="" 

1449 GETA*:IFA*=""THEN1440 

1 450 C*=C*+fl* : I FA*=CHR* < 1 3 > THENGOTO 1 500 
1 460 PR I NT ' V" A* t i GOTO 1 440 

1470 REM 

1430 REM * REMOVE RVS HIGHLIGHT FROM 

1485 REM * 'COST' 

1490 REM 

1 506 P0KE89 . 26 : POKE90 . 2 : P0KE9 1 . 4 1 P0KE92 . 1 

1 505 P0KE786 . 1 : SVS < 28960 > 

1510 REM 

1520 REM * CALCULATE AND DISPLRV TOTAL 

1530 REM 

1540 REM * RVS TO HIGHLIGHT 'TOTRL' 

1550 REM 

1 560 P0KE89 . 32 : POKE90 . 2 : P0KE9 1.5: P0KE92 , 1 

1565 POKE786,2:SVS<28960> 

1 570 T=VAL < Q* > *VAL < C* > : GT-GT+T 

1580 REM 

1590 REM * PUT CURSOR ON LINE 'L' FIT 

1595 REM * POSITON TO DISPLRV TOTRL 
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1600 REM 

1610 POKES?. L:P0KE88.32:SVSC29216> 

1620 PR I NT " 31" T 

1630 REM 

1640 REM * REMOVE RVS HIGHLIGHT FROM 

1645 REM * 'TOTAL' 

1650 REM 

1660 P0KE83 . 32 : POKE90 . 2 : POKES 1 . 5 : POKE92 . 1 

1 665 P0KE786 , 1 : SYS < 28960 > 

1670 REM 

1680 REM * PROMPT FOR ANOTHER EHTRV 

1690 REM 

1700 REM * MOVE CURSOR TO LOCATION FOR 

1705 REM * PROMPT FIND DISPLRV 

1710 REM 

1 720 P0KE87 .13: P0KE88 . 2 : S YS < 292 1 6 > 

1730 PRINT-aSRNOTHER ENTRV - V OR Ni" 

1740 GETA*:IFA*=""THEN1740 

1750 L=L+1 

1760 REM 

1770 REM * USE HORIZONTAL BAR OF SPRCE 

1775 REM * CHARS TO DELETE PROMPT 

1780 REM 

1 790 P0KE89 . 1 : POKE90 ,13s P0KE9 1 . 22 : P0KE784 . 32 

1795 POKE786,0 :SVS< 28806 > 

1806 IFA*="N"THEN1880 

1810 GOTO900 

1820 REM 

1830 REM * CALCULATE GRAND TOTRL FOR RLL 

1835 REM * ENTRIES 

1840 REM 

1850 REM * RVS TO HIGHLIGHT 'TOTAL' AND 

1855 REM * MOVE CURSOR TO 

I860 REM * LOCATION TO DISPLRV GRAND 

1865 REM * TOTAt 

1870 REM 

1 880 P0KE89 . 25 : POKE90 . 1 2 : P0KE9 1 . 5 : P0KE92 . 1 

1885 POKE786,2:SVSC28960) 

1890 POKES? . 12:P0KE88 .32 :SVSC29216> 

1 900 PR I NT " a" GT : FOR<3= 1 TO 1 00 : NEXTQ 

1916 REM 

1920 REM * REMOVE RVS 'HIGHLIGHT' FROM 

1925 REM * TOTAL 

1930 REM 

1 940 P0KE89 . 25 : POKE90 .12: P0KE9 1.5: P0KE92 . 1 

1945 POKE786,1:SVSC28960> 

1950 REM 

I960 REM * INPUT NAME RND RDDRESS 

1988 REM * RVS HIGHLIGHT 'NAME AND 
1985 REM * 'ADDRESS' 
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1990 REM 

2060 P0KES9 . 3 : POKE90 . 1 6 : P0KE9 1 . 1 4 : POKERS . 1 

2005 P0KE786 . 2 : S VS <. 28960 > 

2010 LA=18 

2028 REM 

2030 REM * MOVE CURSOR TO START OF NAME 

2035 REM * AND ADDRESS INPUT 

2040 REM * OH LINE 'LA' 

2050 REM 

2060 POKES? . L A : P0KE8S . 2 : S VS < 292 1 6 ) 

2076 GETA* : IFA*=" "THEN2070 

20S0 IFA*="f"THEN2210 

2090 I F A*=CHR* < 1 3 > THEN2070 

2100 PRINT"3"A*; :AD*=AD#+A* 

2110 IFA*=" . "THENLA=LA+i :G0T02146 

2120 IFA*=". "THENGOTO2160 

2130 GOTO2070 

2140 IFLA>22THENLA=22 

2150 GOTO2068 

2160 GETA*:IFA*=""THEH2160 

2170 IFA*OCHR*C13)THEN2070 

2180 REM 

2190 REM * RVS TO REMOVE HIGHLIGHT FROM 

2195 REM * 'NAME AND ADDRESS' 

2200 REM 

22 1 P0KE89 . 3 : POKE90 .16: POKES 1.14: P0KE92 . 1 

2215 P0KE786,1 rSVSi; 28960 > 

2220 REM 

2230 REM * REMOVE HIGHLIGHT FROM FUNCTION 

2235 REM * 'UPDATE' 

2240 REM * AND RETURN TO FUNCTION SELECT 

2250 REM 

2260 P0KE89 . 23 : POKE90 .18: P0KE9 1.10: P0KE92 . 1 

2265 P0KE786 , 1 : S VS < 28960 ) 

2270 GOTO640 

2280 REM 

2290 REM 

2300 REM *' DELETE RECORD FUNCTION 

2310 REM 

2320 REM 

2330 D*= " " : Q*= " " : C*= " " : AD*= " " 

2340 REM 

2350 REM * RVS TO HIGHLIGHT 'DELETE' 

2355 REM * FUNCTION 

2360 REM 

2370 P0KE89 . 23 : POKE90 . 20 : P0KE9 1.16: P0KE92 . 1 

2375 POKE786.2:SVS<28960> 

2380 T=8:GT=0:L=4iLA=18 

2390 REM 

2400 REM * DELETE BLOCKS OF TEXT FROM 

2405 REM * SCREEN USING THE ROUTINE 
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2410 REM * TO FILL A SCREEN BLOCK WITH 
2415 REM * SPECIFIED CHARACTER 
2428 REM * - HERE A SPACE CHARACTER 

2436 REM „„._„., , 

2440 priKEP.9.2sPOKE90.4:POKE91 ,18:P0KE92.7 

2445 POKE784 . 32 : P0KE786 , : SVS < 28896 > 
245<* P0KE89.21 :POKE90.4 iP0KE91 ,4iP0KE92.7 
2455 P0KE784 . 32 : P0KE786 , : SVS < 28896 > 
2460 POKE89.26:POKE90.4:POKE9i ,4:P0KE92.7 
2465 P0KE784 .32 :POKE786,0 :SVS<28896> 
2470 POKE39.32:POKE90.4:POKE91.6:POKE92,7 
24 75 P0KE784 . 32 : P0KE786 , I S YS < 28896 > 

24^0 REM * DELETE LINE USING HORIZONTAL 

2495 REM * LINE DRAWING WITH 

2500 REM * SPACE CHARACTER 

2510 REM 

2520 priKE89 . 32 : POKE90 .12: P0KE9 1 . 5 i P0KE784 . 32 

2525 P0KE786 , : S VS < 28800 > 

2530 REM 

2540 REM * DISPLAY CHARACTER BLOCK TO 

2545 REM * GIVE ADDRESS INPUT LIMITS 

2550 REM 

2560 PQKE89 . 2 : POKE90 . 1 8 i P0KE9 1.16: P0KE92 . 5 

2565 P0KE784 . 1 00 : P0KE786 , 1 I SVS < 28896 > 

2570 REM 

2580 REM * RVS TO REMOVE HIGHLIGHT FROM 

2585 REM * 'DELETE' AND 

2590 REM * RETURN TO FUNCTION SELECT. 

2600 REM 

26 1 F0KE89 . 23 : POKE90 . 20 i P0KE9 1.101 P0KE92 . 1 

26 1 5 P0KE768 . 1 ! SVS < 28960 > 

2620 G0T064S 

2630 STOP 

RE ADV. 
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FINE RESOLUTION PLOTTING 

A great drawback in having a display only 40 characters wide and 
25 lines deep is the poor definition achievable when displaying data 
in graphical form. A limitation particularly apparent when trying to 
display data as bar charts, either vertical or horizontal, on the 
screen. Fortunately the character set on the Commodore 64 allows 
this limitation to be overcome. By careful use of specific graphic 
characters in both normal and reverse field a single character space 
can be resolved into eight lines in either horizontal or vertical 
directions. The resolution of a character space thus achieved can 
take two forms, either a set of eight characters each having a 
reverse field line of increasing width (from 1/8 character to 8/8 of a 
character), or a set of characters each with a single thin line but 
positioned in the 1/8 character increments. 

The first of these forms can be used with normal reverse field 
spaces to create bar charts with resolutions of one part in 320 in the 
horizontal and 200 in the vertical. The second form is used where a 
thin, fine incremented line is required, such as the example 
program in this section, plotting a graph of a curve. For each of 
these two forms of fine resolution plotting there are two sets of 
characters, one set forvertical and the other for horizontal plotting 



HORIZONTAL BAR LEFT TO RIGHT 

This routine draws a horizontal bar of reverse field spaces from left 
to right in fine resolution. The left hand co-ordinates are 
determined by two variables, column number and line number. 
The length of the bar is set by a variable and has a resolution of 1 in 
135, the minimum length of the bar is and the maximum is 135 
these values are the number of 1/8 ths of a normal character space' 
Attempts to draw a bar longer than 135 will give an erroneous 
display. The variable locations required by the routine are as 
follows: 

89 ... column number of start of fine resolution bar plot (left end) 

90. .. line number of start of fine resolution plot. 

91 . . . length of fine resolution bar plot in 1/8 ths of a character space 

786... colour of bar. 

The routine is called by SYS(29258). 
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HORIZONTAL BAR RIGHT TO LEFT 

This routine draws a horizontal bar of reverse field spaces from 
right to left in fine resolution. The right hand co-ordinates are 
determined by two variables, column number and line number. 
The length of the bar is set by a variable and has a resolution of 1 in 
135 the minimum length of the bar is and the maximum is 135, 
these values are the number of 1/8 ths of a normal character space. 
Attempts to draw a bar longer than 135 will give an erroneous 
display. The variable locations required by the routine are as 

follows: .,,.,, ., 

89 ... column number of start of fine resolution bar plot (right end). 

90 . line number of start of fine resolution plot. 

91 ... length of fine resolution bar plot in 1/8 ths of a character 

space. 

786... colour of bar. 

The routine is called by SYS(29328). 



VERTICAL BAR BOTTOM TO TOP 

This routine draws a vertical bar of reverse field spaces from 
bottom to top in fine resolution. The bottom co-ordinates are 
determined by two variables, column number and line number. 
The length of the bar is set by a variable and has a resolution of 1 in 
135, the minimum length of the bar is and the maximum is 135, 
these values are the number of 1/8 ths of a normal character space. 
Attempts to draw a bar longer than 135 will give an erroneous 
display. The variable locations required by the routine are as 
follows: 
89 ... column number of start of fine resolution bar plot (bottom 

end). 

90... line number of start of fine resolution plot. 

91 ... length of fine resolution bar plot in 1/8 ths of a character 

space. 

786... colour of bar. 

The routine is called by SYS(29408). 
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VERTICAL BAR TOP TO BOTTOM 

This routine draws a vertical bar of reverse field spaces from top to 
bottom in fine resolution. The top hand co-ordinates are 
determined by two variables, column number and line number. 
The length of the bar is set by a variable and has a resolution of 1 in 
135, the minimum length of the bar is and the maximum is 135, 
these values are the number of 1/8'ths of a normal character space. 
Attempts to draw a bar longer than 135 will give an erroneous 
display. The variable locations required by the routine are as 
follows: 

89 ... column number of start of fine resolution bar plot (top end). 
90 . . . line number of start of fine resolution plot. 

91 ...length of fine resolution bar plot in 1/8 ths of a character space. 

786... colour of bar. 

The routine is called by SYS(29503). 



HORIZONTAL LINE LEFTTO RIGHT 

This routine draws a bar of space characters from left to right 

terminated by a fine resolution vertical line one eighth of a 

character wide. The left hand co-ordinates are determined by two 

variables, column number and line number. The length of the bar is 

set by a variable and has a resolution of 1 in 135, the minimum 

length of the bar is and the maximum is 135, these values are the 

number of 1/8 ths of a normal character space. Attempts to draw a 

bar longer than 135 will give an erroneous display. The variable 

locations required by the routine are as follows: 

89 . . . column number of start of fine resolution bar plot (left end). 

90... line number of start of fine resolution plot. 

91 ... length of fine resolution bar plot in 1/8 ths of a character 

space. 

786...colourofbar. 

The routine is called by SYS(29600). 
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HORIZONTAL LINE RIGHT TO LEFT 

This routine draws a bar of space characters from right to left 

terminated by a fine resolution vertical line one eighth of a 

character wide. The right hand co-ordinates are determined by two 

variables, column number and line number. The length of the bar is 

set by a variable and has a resolution of 1 in 135, the minimum 

length of the bar is and the maximum is 135, these values are the 

number of 1/8 ths of a normal character space. Attempts to draw a 

bar longer than 135 will give an erroneous display. The variable 

locations required by the routine are as follows: 

89 . . . column number of start of fine resolution bar plot (right end). 

90 .. .line number of start of fine resolution plot. 

91 ... length of fine resolution bar plot in 1/8 ths of a character 

space. 

786... colour of bar. 

The routine is called by SYS(29680). 



VERTICAL LINE TOP TO BOTTOM 

This routine draws a bar of space characters from left to right 
terminated by a fine resolution horizontal line one eighth of a 
character wide. The top co-ordinates are determined by two 
variables, column number and line number. The length of the bar is 
set by a variable and has a resolution of 1 in 135, the minimum 
length of the bar is and the maximum is 135, these values are the 
number of 1/8 ths of a normal character space. Attempts to draw a 
bar longer than 135 will give an erroneous display. The variable 
locations required by the routine are as follows: 
89 . . . column number of start of fine resolution bar plot (top end). 
90 .. . line number of start of fine resolution plot. 
91 ... length of fine resolution bar plot in 1/8 ths of a character 

space. 

786... colour of bar. 

The routine is called by SYS(29856). 
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VERTICAL LINE BOTTOM TO TOP 

This routine draws a bar of space characters from bottom to top 
terminated by a fine resolution horizontal line one eighth of a 
character wide. The bottom co-ordinates are determined by two 
variables, column number and line number. The length of the bar is 
set by a variable and has a resolution of 1 in 135, the minimum 
length of the bar is and the maximum is 135, these values are the 
number of 1/8 ths of a normal character space. Attempts to draw a 
bar longer than 135 will give an erroneous display. The variable 
locations required by the routine are as follows: 

89 ... column number of start of fine resolution bar plot (bottom 
end). 

90 . . . line number of start of fine resolution plot. 

91 . . . length of fine resolution bar plot in 1/8 ths of a character space. 

786... colour of bar. 

The routine is called by SYS(29760). 
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10 REM 

20 REM ******************************* 

30 REM *ROUTIHE TO CALCULATE SCREEN * 

40 REM *ADDRESS FROM VALUES FOR * 

50 REM * COLUMN IN 89 * 

60 REM * LINE IN 96 * 

70 REM * ADDRESS RETURNED IN 91 AND 92* 

80 REM *THIS ROUTINE IS ONLV CALLED * 

90 REM *BV OTHER ROUTINES IN THE * 

100 REM*PACKAGE,DO NOT USE BV ITSELF.* 

110 REM*ERROR FLAG IN LOCATION 785 * 

1 20 REM******************************* 

130 1=28672 :T=0 

140 READ A 

150 IF A=-l THEN 190 

160 T=T+A:POKEI .A 

170 1=1+1 

180 GOTO 140 

190 PRINT"3R0UTINE ll" 

200 IF T= 11973 THEN PR I NT " SBEHTERED O.K" I GOTO 1080 

210 PRINT-'HSENTERED INCORRECTLV" 

220 END 

230 DRTA169.0.141.17.3.165,89 

240 OATA48,66,201,40,176.74.165 

250 DATA90.48.82,201.25.176.90 

260 DATA169.0. 133,87, 133,88, 133 

270 DATA94, 133.95. 165.90.240. 15 

288 DATA170.24.165.87,105,40.133 

290 DATA87. 144.2.238.88.202.208 

300 DATA242,24.165,87,101 ,89.133 

310 DATA87. 165.88. 105,4. 133.88 

320 0ATA24. 165,87.133,94,165,88 

330 DflTA105,212,133,95,96,169.1 

348 DATA141,17,3,169,0.133.89 

350 0ATR76.7.112.169.2.141.17 

360 0ATA3.169,39.133,89,76,7 

370 DATAU2.169.3.141.17.3.169 

380 DATR0,133.90.76.7.112,169 

390 DATA4,141.17,3.169,24,133 

400 DATA90. 76, 7, 112,-1 

1000 REM 

1010 REM******************************* 

1020 REM*DRAW A BORDER OF ANY SIZE.AHV* 

1030 REM*LOCATION, AND ANV COLOUR. TOP* 

1040 REM*LEFT COORDINATES ARE: * 

1050 REM* COLUMN IN 89 * 

1060 REM* LINE IN 90 * 

1078 REM* WIDTH IN 91 * 

1080 REM* HEIGHT IN 92 * 

1090 REM* COLOUR IS STORED IN 786. * 

1100 REM*ROUTINE CALLED BV SVS< 29024 > * 
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ills rem******************************* 

1120 I=29024:T=0 

1130 READ A 

1140 IF A=-l THEN1180 

1150 POKE I,R:T=T+A 

1160 1=1+1 

1170 GOTO1130 

1180 PR I NT "ROUTINE 2:" 

1190 IF T=20557 THEN PR I NT " JOSENTERED 0. K. " :GOTO2080 

1206 PR I NT "CENTERED INCORRECTLY" 

1210 END 

1228 DATA72,152,72,138,72.32,0 

1230 DATA1 12, 165. 87. 133. 89. 165. 88 

1240 DATA133.90.169.100.141 .16,3 

1250 DRTA32.212.113.24.165.87.105 

1260 DATA41 , 133 ,87, 133,89, 165,88 

1270 DATA105.0.133.88,133.90,169 

1280 DATA101.141 .16,3,32.239.113 

1290 DRTR24, 165, 89. 101 .91.133.87 

1300 DRTR198.87.165.90,105,0,133 

1310 DRTR88. 169, 103. 141 .16.3.32 

1320 DRTR239. 113. 165.89. 133.87. 165 

1330 DRTR96, 133,88, 166.92, 198.87 

1340 DRTR202.202.24,165,87.105,40 

1350 DRTR133,87.165.88.105.0,133 

1360 DRTR88,202.208.240,169,99.141 

1370 DRTR16.3,32,212.113.104.178 

1380 DATA104.163.104,96,164,91 ,165 

1390 DRTR87,133,94,165,88.24.105 

1400 DRTR212.133.95,173.16.3,145 

1410 DATA87,173,1S,3,145.94.136 

1420 DRTR2Q8. 243, 96, 160. 0,166. 92 

1430 DRTR202.202.173. 16.3. 145.87 

1440 DRTR24.165,87,133.94,165,88 

1450 DRTR105.212. 133.95, 173. 18.3 

1460 DRTfll45.94.24, 165,87, 105.48 

1470 DRTR133.87, 165,88. 105,0, 133 

1480 DRTR88, 202. 268. 219, 96.-1 

2000 REM 

2010 REM******************************* 

2020 REM*ROUTINE TO PLACE THE CURSOR * 

2030 REM*RT R LOCRTION ON THE SCREEN * 

2040 REM*WH03E COORDINATES ARE STORED * 

2050 REM*IN 87=LINE AND 88=C0LUMN. * 

2060 REM*ROUTINE CALLED BV SVS<29216>* 

2070 REM******************************* 

2080 1=29216 :T=0 

2090 READ A 

2190 IF A=-l THEN2140 

2110 POKE I.R:T=T+A 

2120 1=1+1 
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2130 
2140 
2150 
2168 
2170 
2180 
2190 
2206 
2210 
2226 
2230 

3800 

3010 
3020 
3630 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3278 

4000 
4010 
4020 
4030 
4640 
4050 
4060 
4070 
4080 
4090 
4100 
4110 



GOTO2990 

PR I NT "ROUTINE 3:" 

IF T=5163 THEN PRINT"HffiNTERED 0. K. " :GOTO3080 

PRINT"gEENTERED INCORRECTLV" 

END 

DATR72. 152.72, 138,72, 169. 19 

DRTR32.22.231,165,87,240,9 

DATR1S9 . 17 .32 .22 .231 . 198 .87 

DRTA208 .247 , 165 .88 .240 .9 . 169 

DFITR29.32,22,231.i98.88.208 

DRTA247, 104, 170. 104. 168. 104, 96,-1 

REM 

REM******************************* 

REM*DRRW HORIZONTAL BRR - LEFT TO* 

REM*RIGHT. RESOLUTION 135 X 25. * 

REM*COLUMN # IN 89, LINE # IN 96.* 

REM*LENGTH IN 91 . COLOUR IN 786* 

REM*ROUTINE CALLED BV SYS< 29258 > * 

REM******************************* 

1=29258 :T=0 

READ R 

IF R=-l THEH3140 

POKE I.R:T=T+A 

1 = 1 + 1 

GOTO3090 

PR I NT" ROUTINE 4s" 

IF T=7891 THEN PRINT"HSENTERED 0. K. " :GOTO4000 

PRINT-'WBEHTERED INCORRECTLV" 

END 

DATR72.152.72,138,72,32,8 
DATA112. 160.0.165.91 ,201,8 
DATA48,27.233.8,133,91.169 
DATA160.145,87,173.18.3.145 
DRTA94 . 24 . 230 . 87 , 230 , 94 , 1 44 
DATA4 . 230 . 88 , 230 . 95 . 76 , 84 
DATfll 14 ,170 . 189 . 134 . 1 14 . 145,87 
DRTR173, 18,3, 145 .94 . 104 . 170 
DRTfll 04. 168. 104, 96, 32, 101, 116 
DRTR1 17. 97. 246. 234. 231. 160,-1 
REM 



REM******************************* 
REM*DRRW HORIZONTAL BRR - RIGHT * 
REM*TO LEFT. RESOLUTION 135 X 25.* 
REM*COLUMN # IN 89, * 

REM*LINE # IN 90, * 

REM*LENGTH IN 91 , * 

REM*COLOUR IN 786. * 

PEM*ROUTINE CALLED BY SVS< 29328 > * 
REM******************************* 
I=29328:T=0 
READ A 
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4120 IF fl=-l THEN41S0 

4130 POKE I ,fl:T=T+R 

4140 1=1+1 

4150 GOTO4110 

4160 PRINT"3R0UTINE 5:" 

4170 IF T=S095 THEN PRINT"S3gEHTERED 0. K. " :GOTO5900 

4180 PRINT"HENTERED INCORRECTLV" 

4190 END 

4200 DflTR72,152,72,133,72.32.0 

4210 DRTR112, 160,0.165.91 .201 .8 

4220 DRTR48,27,233.8.133,91,169 

4230 DRTR160. 145.87, 173. 18.3, 145 

4240 DHTR94 . 56 , 1 98 , 87 . 1 98 . 94 , 1 76 

4250 DRTH4, 198.88. 198.95.76. 154 

4260 DRTfll 14 , 170 . 189.204 , 1 14, 145.87 

4270 DRTR173.18.3.145.94.104.170 

4280 DRTR104, 168 . 184,96 ,32 , 103 , 106 

4290 DRTfil 18 ,225 ,245 ,244 .229 . 160 .-1 

5000 REM 

50 1 REM******#**iMi*****#*#**#**#****** 

5020 REM*DRRW S'ERTICRL BRR - BOTTOM TO* 

5030 REM*TOP. RESOLUTION 135 X 40. * 

5040 REM*COLUMN # IN 89. * 

5050 REM*LINE # IN 90, * 

5060 REM*LENGTH IN 91 , * 

5070 REM*COLOUR IN 786. * 

5080 REM*ROUTINE CALLED BV SVS< 29408 > * 

5090 REM**#********#*#********#*******# 

5108 1=29408 :T=0 

5110 RERD R 

5120 IF R=-l THEN5160 

5130 POKE I,R:T=T+fl 

5140 1=1+1 

5150 GOTO5110 

5160 PR I NT "ROUTINE 6:" 

5170 IF T=9031 THEN PR I NT " MWENTERED 0. K. " :GOTO6800 

5180 PRINT"HffiNTEREO INCORRECTLV" 

5190 END 

5200 DRTR72.152,72,138.72,32.0 

5210 DRTRU2. 160,0, 165.91 .201 .8 

5220 DRTR43.37.233.8,133,91,169 

5230 DRTR160. 145.87. 173. 18.3, 145 

5240 DRTR94,24.165,87,233.39.133 

5258 DRTR87 , 1 33 , 94 . 1 65 . 88 . 233 . 

5260 DRTR133,88.24,105,212,133,95 

5270 DRTR165 .88 .208 .213 . 170 . 189 .38 

5280 DRTfll 15, 145, 87, 173. 18, 3, 145 

5296 DRTR94, 104 , 170 , 104. 168 . 104 .96 

5300 DRTR32. 100, 11 1,121, 98. 248. 247 

5310 DRTR227. 160,0,-1 

6000 REM 
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6010 
6020 
6030 
6049 
6050 
6060 
607S 
6089 
6090 

6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 

7000 
7010 

7020 
7030 
7040 
7050 
7060 
7070 
7030 
7090 

7100 

7110 
7120 
7130 
7140 
7150 
7169 
7170 
7180 
7190 



REM******************************* 
REM*DRAW VERTICAL BAR - TOP TO * 
REM*BOTTOM. RESOLUTION 135 X 25. 
REM*COLUMN # IN 89. 
REM*LINE # IN 90, 
REM*LENGTH IN 91 . 
REM*C0LOUR IN 786. 
REM*ROUTINE CALLEO BV SVS< 29593 > 



1=29503 sT=0 

READ Fl 

IF A=-l THEN6160 

POKE I.AlT»T+A 

1 = 1 + 1 

GOTO6110 

PR I NT "ROUTINE 7:" 

IF T =8990 THEN PRINT-WJENTERED 0. K. » IGOTO7000 

PRINT"SKENTERED INCORRECTLV" 

END 

DATA72.152,72.138.72,32,0 

DATAi 12. 160. 0.163, 91. 281 .8 

DATA48.37,233,8,133,91,169 

OATA160.145.87.173.18.3.145 

OATA94.24.165,87.105.40.133 

DATA87.133,94,165.88.105.0 

DATA133.88,24,105,212.133,95 

DATA165 .88 .288 .213 . 170 . 189 . 133 

0ATA1 15. 145, 87, 173. 18. 3. 145 

DATA94 , 104, 170 . 104 , 168 . 104 .96 

OATA32,99,119.120.226,249,239 

DATA228. 160, 0,-1 

REM 

REM******************************* 

REM*DRAW HORIZONTAL BAR - LEFT TO* 

REM*RIGHT OF SPACES TERMINATED IN* 

REM*A THIN LINE. RESOLUTION * 

REM* 135 X 25. * 

REM*COLUMN # IN 89. * 

REM*LINE # IN 90, * 

REM*LEHGTH IN 91 . * 

PEM*COLOUR IN 786. * 

REM*ROUTINE CALLED BV SVS< 29608 > * 

REM******************************* 

1=29600 :T=0 

READ A 

IF A=-l THEN7180 

POKE I.A:T-T+A 

1 = 1 + 1 

G0T07130 

PR I NT "^ROUTINE 8i" _„„„„„ 

IF T=7251 THEN PR I NT " OTEHTERED O.K. " :GOTO8000 
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7200 PR I NT "CENTERED INCORRECTLV" 

7210 END 

7228 DATA72.152,72.138.72.32,0 

7230 DATR1 12. 160, 0,165. 91, 201 .7 

7240 0RTA48.27,233,7,133.91 .169 

7250 DATA32. 145.87. 173. 18.3. 145 

7260 DATA94,24.230.87.230,94,144 

7270 DAT A4. 230. 88. 230, 95, 76, 170 

^280 DATfll 15, 170. 189. 220. 115. 145. 87 

7290 DATA173, 18,3, 145.94. 104. 170 

7300 DATA104,168.104,96,101,84,71 

7310 DATA66.72.89.103.32.32,-! 

8000 REM 

801 REM******************************* 

8020 REM*DRAW HORIZONTAL BAR - RIGHT * 

8030 REM*TO LEFT OF SPACES TERMINATED * 

8040 REM*IN A THIN LINE. RESOLUTION * 

8050 REM* 135 X 25. * 

8060 REM*COLUMN # IN 89. * 

8070 REM*LINE # IN 90. * 

8080 REM*LENGTH IN 91 , * 

8090 REM*COLOUR IN 786. * 

8100 REM*ROUTINE CALLED BV SVS<29680> * 

81 10 REM******************************* 

8120 I=29680:T=0 

8130 READ A 

8140 IF A=-l THEH8180 

8150 POKE I,A:T=T+A 

8160 1=1+1 

8170 GOTO8130 

8180 PR I NT "ROUTINE 9:" 

8190 IF T=7092 THEN PR I NT" REENTERED 0. K. " :COTO9000 

8200 PRINT-HKNTERED INCORRECTLV" 

8210 END 

8220 DHTA72.152,72.138,72.32.0 

8230 DATA1 12, 160,0, 165.91 .201 ,7 

8240 DATA48.27.233.7,133.91,169 

8250 DATA32.1.45.87.173.18.3,145 

8260 DATR94,56.198.87.198.94.176 

8270 DAT A4 . 1 98 . 88 . 1 98 , 95 ; 76 . 250 

8280 DflTAl 15 . 170 , 139 ,44, 1 16 . 145 .87 

8290 DATA173.18.3.145.94.104.170 

8300 DATA1 04. 168. 104. 96. 103. 89. 72 

8310 DATA66.71,84,101,32,32.-1 

9008 REM 

90 1 REM******************************* 

9020 REM*DRAW VERTICAL BAR - BOTTOM TO* 

9030 REM*TOP OF SPACES TERMINATED IN A* 

9040 REM*THIN LINE. RESOLUTION 135 X 40* 

9050 REM*COLUMN # IN 89. * 

9060 REM*LINE # IN 90, * 
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907Q REM*LENGTH IN 91 . * 

9Q30 REM*C0L0UR IN 786. * 

9090 REM*ROUTINE CALLED BV SYS < 29760 > * 

9 1 00 REN*****if ************************* 

9110 1=29760 «T=0 

9120 READ fi 

9130 IF R=-l THEN9170 

9149 POKE I ,R:T=T+A 

9150 1=1+1 
9160 GOTO9120 

9170 PR I NT "ROUTINE 10:" 

9180 IF T=8307 THEN PRINT"W!!EHTERED 0. K. " :GOTO10000 

9190 PRIHT"»«ENTERED INCORRECTLY" 

9200 END 

9210 DATA72.152,72.138.72.32,0 

9220 DFlTfU 12. 160.0, 165,91 ,201 .8 

9230 DRTR43,37,233,8,133.91 .169 

9240 DATA32.145.87.173.18.3.145 

9250 0RTR94 , 24 . 1 65 , 87 , 233 , 39 , 1 33 

9260 DRT A87 , 1 33 . 94 . 1 65 . 88 , 233 . 

9270 DRTfU 33, 88, 24. 103, 212, 133. 95 

9280 DRTH 1 65 . 88 , 288 , 2 1 3 . 1 76 . 1 89 , 1 34 

9290 DRTR1 16. 145. 87, 173. 18. 3. 145 

9300 DRTR94 , 104 . 170. 104 . 168 . 104 .96 

9310 DRTR100.S2.70,64,67,68,69 

9320 DRTR99.32.0.-1 

10000 REM 

1 00 1 REIT******************************* 

10020 REM*ORAW VERTICAL BAR - TOP TO * 

10030 REM*BOTTOM OF SPACES TERMINATED * 

10040 REM*IN A THIN LINE. RESOLUTION * 

10050 REM* 135 X 40. * 

10060 REM*COLUMN # IN 39, * 

10070 REM*LINE # IN 90, * 

10080 REM*LENGTH IN 91, * 

10090 REM*COLOUR IN 786. * 

10100 REM*ROUTINE CALLED BV SVS< 29856 > * 

10110 REM******************************* 

10120 I=29356:T=0 

10130 READ R 

10140 IF A=-l THEH16188 

10150 POKE I,A:T=T+A 

10160 1=1+1 

10170 GOTO10130 

10180 PR I NT " HFOUT I HE 11:" 

10193 IF T=8180 THEN PRINT"JfflENTERED 0. K. " :G0T01 1000 

10200 PRINT-BKENTERED INCORRECTLV" 

10210 END 

10220 DRTR72.152.72,138,72,32,0 

10230 DATA112. 160. 0.165. 91 .201 .8 

10240 DRTR48,37,233,8,133.91.169 
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10250 DRTR32,145,87,173.18,3.145 
10260 DATA94 .24 . 165,87, 185,40, 133 
10270 DATA87.133.94.165.88,105.0 
10288 DATA133,88.24,105.212.133.95 
10290 DATA165,88,288,213.170.189.230 
10300 DATA1 16, 145. 87. 173. 18, 3, 145 
10310 DATA94 . 104 . 170, 104 . 168. 104 .96 
10320 DRTA99. 69. 68. 67, 64, 70, 82 
10330 DATA100.32.32.0.-1 
11000 REM 
11010 REM 

1 1020 REM******************************* 
11030 REM*0RAW A HORIZONTAL BRR OF RNV * 
11040 REM*64 CHARACTER. CHARACTER STORED* 
11050 REM*IN 784, COLUMN START IN 89, * 
11060 REM*LINE START IN 90, LENGTH OF * 
11070 REM*LIHE IN 91. COLOUR IN 786. * 
11080 REt1*ROUTINE CALLED BV SVS<28800) * 
1 1090 REN******************************* 
11100 I=28800sT=0 

11110 READ A 

11120 IF R=-l THENU160 

11130 POKE I,A:T=T+A 

11140 1=1+1 

11150 GOTO11110 

11160 PR I NT "ROUTINE 12 s" 

11178 IF T=3895 THEN PRINT'-JHUENTEREO 0. K" sGOTOl 1256 

11180 PR I NT" UNENTERED INCORRECTLV" 

11190 END 

11280 DATA72.152.72.138.72.32.0 

11210 DfiTA.112,164.91.173,16.3.145 

11220 DATA87.173.18,3,145,94,136 

1 1230 DRTA208 .243 . 104 . 170, 104, 168, 104 

11240 DATR96.-1 

11250 POKES 1 .0SPOKE52.112 

11260 P0KE55 , 8 P0KE56 , 1 1 2 1 CLR I NEW 

RE ADV. 
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FINE RESOLUTION EMULATOR 

The loader on pp. 120-7 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program emulates the display of an analog edge meter. To 
move the needle use the 4 and 6 keys respectively. The program 
calls the following Display Management routines: 

CURSOR CONTROL-SYS (29216) 
FINE RES HORIZONTAL-SYS (29600) 
BORDER -SYS (29024) 
HORIZONTALUNE-SYS (28800) 



PROGRAM STRUCTURE 

The following is a description of lines of particular interest in the 

Basic program: 

120-135 

190-260 

320-345 

370-430 



460-461 
470-471 



Limit top of memory and clear pointers. 

Uses the cu rsor control routi ne to display the text. 

Draws a border around the meter display. 

Test for key press and if legal key press, move the 

meter needle in the correct direction. 

Erases the previous meter needle display. 

Displays the new meter needle position. 
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18 rem ******************************* 
20 rem *this prg emulates the display* 
30 rem *0f an anaolg edge meter, use * 

35 REM * KEYS 4 & 6 * 

40 REM *TO MOVE METER HEEDLE UP OR * 
45 REM * DOWN. * 

50 REM *ROUTINE USES THE FOLLOWING * 
55 REM * MACHINE CODE * 

60 REM * ROUTINES: * 

70 REM * SYS C 292 16) - CURSOR CONTROL * 
80 REM * SYSC29600) - FINE-RES * 
85 REM * HORIZONTAL * 

90 REM * SVSC 29024) - BORDER * 
100 REM* SVSC 23808 ) - HORIZONTAL LINE* 
110 REM******************************* 
120 POKE55,0:POKE56,U2 
130 REM LIMIT TOP OF MEMORV 
135 POKE 51 .0:POKE52,U2:CLR 
140 PR INT" 3" 
145 REM 

150 REM *DRAW SCALE IN INCREMENTS OF 10 

151 REM * FINE RES LINES 

154 P0KE53281 .2 

155 REM * FINE RES LINES 
160 FORQ=130TO6 STEP -10 

170 POKE 89.10:POKE90,10:POKE91.Q:POKE786.1 
175 SVSC 29680) 
180 NEXTQ 
183 REM 

185 REM *D I SPLAY TEXT USING CURSOR 

186 REM * CONTROL 

187 REM 

190 DATA 6,U."S»=INAL0G EDGE METER!" 

200 DATA 8.9.0 

210 DATA 8.28.139 

220 DATA 20. 7, "^DIGITAL VALUE ON METER"" 

230 F0RQ=1T04 

240 READR :P0KE87 . A :READA :POKE88 . A :SYSC29216) 

250 RE AD A* : PR I NT " liJ" A* 

260 NEXTQ 

270 REM 

280 REM *DRAW BORDERS AROUND METER 

285 REM * DISPLAY 

290 REM 

320 P0KE89 , 8 : POKE90 . 9 : P0KE9 1.21: P0KE92 , 4 

325 P0KE786.. 7: SVSC 29824) 

340 P0KE89 , 6 : POKE90 . 5 : P0KE9 1 . 25 : P0KE92 , 9 

345 P0KE786, 7: SVSC 29024) 

350 REM 

354 REM *SEE WHICH KEV PRESSED CLOC 197) 

355 REM * IF KEV = 4 C 197=11) 
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356 REM *THEN DISPLAY VALUE DECREASED, 

357 REM * IF KEY = 6 <197=19> 

358 REM *THEH DISPLAY VALUE INCREASED. 
360 REM 

378 A=6 

3S0 X=PEEK<197> 

399 IFX=19THEN A=A+1 :GOTO420 

489 IFX=11THEN A=A-liGOTO420 

410 GOTO380 

420 IFA<0THEHA=0 

430 IFR>130THENA«=13'0 

4§4 REM 

435 REM *LOCATE CURSOR TO DISPLAY 

436 REM * DIGITAL EQUIVALENT 

437 REM 

440 P0KE87 ,20 iPOKESS .30 :SVS<29216> 
450 PRINT" MHIT'iR 

454 REM 

455 REM *ERASE PREVIOUS METER NEEDLE 

456 REM * DISPLAY 

457 REM 

460 POKE89.10:POKE90.11 IP0KE91 , 18:P0KE784 .32 

461 POKE736,2:SYS<28800> 

464 REM 

465 REM *D I SPLAY NEW NEEDLE POSITION 

466 REM 

470 POKE89.10:POKE90,11 IP0KE91 ,AsP0KE786.i 

471 SYS C 29600) 
480 GOTO380 
READY. 
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GRAPH FUNCTION 

The loader on pp. 120-7 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program plots the graph of a function and uses the following 
routines from the Display Management section : 

DRAW BORDER -SYS (29024) 
CURSOR CONTROL-SYS (29216) 
VERTICAL FINE RES LINE -(29760) 

PROGRAM STRUCTURE 

The following lines are of particular interest in the program: 
90-105 : Limitsthetop of memory and clearsthe pointers. 

210-215 : Draws a border around the display. 

250-260 : Displays the text using the cursor control routine. 

310-340 : Plots the graph of the function, ensuring that there 

are no negative numbers and that the maximum 

limitforthevaluesis135. 
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10 REM ******************************** 
20 REM *USING FINE RESOLUTION LINES * 
25 REM * THIS PROGRAM * 

30 REM *PLOTS THE GRAPH OF A FUNCTION.* 
40 REM *PROGRAM USES THE FOLLOWING * 
45 REM *MACHINE COOE ROUTINES! * 
50 REM * SVS < 29024) - DRAW BORDER * 
60 REM * SYS<29760) - VERTICAL * 
65 REM * FINE RES LINE * 

70 REM * SVS<29216) - CURSOR CONTROL * 

89 REM ******************************** 

90 P0KE55,Q:P0KE56,112 

100 REM LIMIT TOP OF MEMORV 

105 P0KE51 ,0iPOKE52,112iCLR 

110 PRINT"3" 

120 REM 

130 REM *DRAW VERTICAL SCALE IN 

135 REM * INCREMENTS OF 10 FINE RES LINES 

140 REM 

145 P0KE53281.12 

150 FORQ=110TO0STEP-10 

1 60 P0KE83 , : POKE90 , 2* s P0KE9 1 . Q : P0KE786 , 1 

165 SVS (29760) 

170 HEXTQ 

180 REM 

190 REM *DRAW BORDER AROUND DISPLAY 

200 REM 

210 POKE89,0!POKE90.6:POKE91,38!POKE92,16 

215 P0KE736 . 6 : SVS < 29024 ) 

220 REM 

230 REM *DISPLAV TEXT USING CURSOR 

235 REM * CONTROL 

240 REM 

250 P0KE87.7:P0KE88.9sSVS<29216) 

260 PRINT" S33RAPH OF SINE FUNCTION*" 

270 REM 

280 REM *PLOT GRAPH OF FUNCTION. NOTE 

285 REM * OFFSET GIVEN TO FUNCTION 

290 REM *TO ENSURE NO NEGATIVE VALUES 

295 REM * FOR PLOT OR VALUES OVER 135 

300 REM 

310 F0RQ=2T037 

320 A=IHT<SIN<:<:Q-2>/5.5>*40>+50 

330 P0KE89 . Q : POKE90 , 20 ! P0KE9 1 , A i P0KE786 . 2 

335 SVS < 29760) 

340 NEXTQ 

350 GETA*:IFR*=""THEH350 

355 REM PRESS ANY KEY TO END 

360 END 

RE ADV. 
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BAR CHART 1 

The loader on pp. 120-7 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program draws a bar chart of up to 31 values with positive 

numbers. The Machine Code routines that are called from this 

Basic program are: 

DRAW BORDER -SYS (29024) 

CURSOR CONTROL-SYS (29216) 

PLOT VERTICAL FINE BAR-SYS (29408) 

The REM statements are not needed as they are purely 

informative. Therefore the program starts at line 100, which limits 

the memory and clears the pointers. At line 100 P% is set to equal 

31 integer numbers. Lines 150-160 are the data for the bar chart. 

Lines 200-230 read the data into the array ?%. Line 240 clears the 

screen, a sensible statement before attempting to display anything. 

At line 255 the screen colour is set to grey. 

The bar chart is set up in lines 310-340. The data (A) is read and 
POKEd into locations 87 and 88, then the cursor control routine is 
called to position the cursor for the next to be displayed. Lines 380 
and 385 draw the border around the limits of the bar chart. The 
POKE'S to 89 and 90 set the start of the column at the top left 
corner and at the screen line number of border start. The POKE'S to 
91 and 92 define the width and the height of the number. On line 
385, location 786 holds the character colour (in this case blue). 

Lines 420-460 simply go through a loop 1 to 32 and calculate the 
plotting scale, the highest value is returned in B and on line 500 it is 
printed. Lines 540-590 display the barchart using the Vertical 
barplot routine. The variable 'Q' holds the value of each bar as it 
passes through the loop and calls the barplot routine to place it on 
the screen. The colour of each bar is determined by C in line 565, 
but there is a check in line 566 to make sure that the colour of the 
bar is not the same as the background or previous bar. Line 60 
waits for a key press after the bar chart has been displayed, and 
then ends the program. 
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in REM ******************************** 

20 REM *fl SINGLE DATA SET OF UP TO 31 * 

25 REM *VALUE3 ALL +VE NUMBERS * 

38 REM *ARE DISPLAYED BV THIS ROUTINE * 

35 REM *RS fl BARCHART. * 

40 REM *MflCHINE CODE ROUTINES USED * 

45 REM * ARE: * 

Fl n PEM * svsc 29024 > - DRAW BORDER * 

60 REM * SYS < 2921 6 > - CURSOR CONTROL * 

70 REM * SVSC 29408) - PLOT VERTICAL * 

75 REM * FINE RES BAR * 

80 REM ******************************** 

90 REM * LIMIT TOP OF MEMORY 

1 00 POKE 55.S: P0KE56 ,112: POKES 1,0: P0KE52 . 1 1 2 : CLR 

110 DIMP;;<31> 

120 REN 

130 REM *DATfl TO BE DISPLAYED 

140 REM 

150 DATA 2,5,6.3,9.8.10.15.11.17.24.22,18 

155 DATA 16.17,13,19.20.21.18 

160 DATA 25.23.28,26,20,13.5,21.28.26.35 

178 REM 

180 REM *PUT DATA INTO ARRAY PK 

190 REM 

200 F0RQ=1T031 

210 RERDfl 

220 PK'CQ>=A 

230 HEXTQ 

240 PRINT":]" 

250 REM 

255 P0KE53281 .12 

260 REM *D I SPLAY TEXT USING CURSOR 

265 REM * CONTROL 

278 REM 

280 DflTA2.14."3^>:AMPLE BAR CHARTS" 

290 DATH2 1,2.0 

300 DRTA23 .7 . "0 c!l 

316 F0RQ=1T03 

320 REflDR : P0KE87 . fl : READfl : P0KE88 . A : SYS C 292 1 6 > 

330 RERDfl* : PR I NT " =«" fl* 

340 NEKTQ 

350 REM 

360 REM *DRAW BORDER AROUND DISPLAY 

365 REM * AREA 

370 REM 

380 P0KE89 . 5 : POKE90 . 3 : P0KE9 1 . 33 : P0KE92 . 20 

335 P0KE78S .6 :SYS<23024> 

390 REM 

400 REM 

410 REM *DEFINE SCALE FOR PLOTTING 

420 B=0 
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430 F0RQ=1T031 

440 fi=PK<Q> 

450 IFfl>BTHEHB=R 

469 NEXTQ 

470 REM 

480 REM *PRINT MAX I MUM DISPLAYED VALUE 

490 REM 

§00 PRIHT"8gMWMWIfla"B 

•_' 1 @ REM 

520 REM *DISPLHV BARCHART USING VERTICAL 

525 REM * BflRPLOT ROUTINE 

530 REM 

540 A=B/135 

550 FORQ=1T031 

568 RS=IHTCP;-XQ>/fl,-. 

565 C= I NT < RND C 1 > *8 > + 1 

566 IFC+240=PEEK';532S1 >0RC=CCTHEN565 

5?0 POKE90..21 :P0KE89,Q+6: POKES 1 .flS:P0KE786 C 

580 SVS< 294QS > :CC=C 

590 HEXTQ 

660 GETAS :IFfl*=""THEN 688 

605 REM **WAIT TILL KEV PRESSED TO END** 

READY. 
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BAR CHART 2 

The loader on pp. 1 20-7 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program displays a bar chart of two sets of data, both having 

up to 15 numbers where all 15 values are positive. The Machine 

Code routines used in this program are: 

DRAW BORDER -SYS (29024) 

CURSOR CONTROL- SYS (29216) 

PLOT VERTICAL FINE RES BAR-SYS (29408) 

PLOT VERTICAL FINE RES LINE-SYS (29760) 

Line 100 limits the memory and clears the pointers. Line 110 sets up 

an array of integer values in P%. This program uses exactly the 

same technique as the first barchart, the only differences being the 

use of the vertical fine res line. The fine res barchart is displayed 

using lines 600-640. 

The third program displaying a bar chart uses a single set of data 
of up to 30 values, the values can be negative or positive. This 
program uses the following Machine Code routines: 
DRAW BORDER -SYS (29024) 
CURSOR CONTROL-SYS (29216) 
PLOT VERTICAL FINE RES BAR-SYS (29408) 
PLOTVERTICAL FINE RES LINE-SYS (29503) 

PROGRAM STRUCTURE 

The lines of particular interest that are different from the other 

barchart programs are: 

Lines 615-640 : This routine displays the negative bars. 

The positive bars are displayed in the upper half of the border and 

the negative bars are displayed in the lower half. 
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is rem #**#***###m**#***#####*#m#mm 

20 REM *TWO DATA SETS EACH OF UP TO 15* 
25 REM *VRLUES ALL +VE NUMBERS * 
30 REM *RRE OISPLflVED BV THIS ROUTINE * 
35 REM *flS R BHRCHRRT. * 

49 REM *MRCHINE CODE ROUTINES USED * 
45 REM *RRE: * 

50 REM * SVSC 29024 > - DRAW BORDER * 
60 REM * SYS < 2921 6 > - CURSOR CONTROL * 
70 REM * SVSC 29408 > - PLOT VERTICAL * 

74 REM * FINE RES BAR * 

75 REM * SVSC 29760 > - PLOT VERTICAL * 

76 REM * FINE RES LINE * 
80 REM ******************************** 
90 REM LIMIT TOP OF MEMORV 

1 00 POKE 55 , 6 : P0KE56 .112: POKES 1,0: P0KE52 , 1 1 2 : CL.R 

110 DIMPK<31> 

120 REM 

130 REM *DRTA TO BE DISPLAVED 

140 REM 

150 DATR 2.1,4,2,6,3,8,4.10.5.12,6.14.7.16 

155 DATA 8,18,9,26,10 

160 DATA 22,11,24.12.26,13.28.14,30,15 

170 FORQ=1TO30 

180 READfl 

190 p-:cg>=a 

200 NEXTQ 

216 REM 

220 REM *DISPLAV TEXT USING CURSOR 

225 REM * CONTROL 

230 REM 

240 PR I NT "3" 

245 P0KE53281 .12 

250 DATR1 . 1 4 . " 33EXAMFLE BAR CHART!" 

260 DRTR20.2.0 

270 DRTR22,7,"1 2 3 4 5 6 7 8 9 111111" 

280 DRTA23.7," 1 2 3 4 5" 

290 F0RQ=1T04 

300 REfiDA : P0KE87 . A : READR : P0KE88 . A : SYS ( 292 1 6 ) 

3 1 READfl* : PR I NT " 3" A* 

320 NEXTQ 

330 REM 

340 REM *DRAW BORDER AROUND DISPLRV 

350 REM 

360 P0KE89 , 5 : POKE90 , 2 : POKES 1.32: P0KE92 . 20 

365 P0KE786 , 2 : SVS C 29024 ) 

370 REM 

380 REM *DEFINE SCALE FOR PLOTTING 

390 REM 

400 B=0 

410 FORQ=1TO30 
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42(3 FI=PK«3> 

430 IFfl>BTHEHB=fl 

446 HEXTQ 

450 REN 

460 REM *PRIHT MAXIMUM DISPLflVED VALUE 

470 REM 

480 PRINT ,, SKBMH<ak ,, B 

490 fi=B/135 

500 FORQ=1TO30 

510 REM 

520 REM *DISFLRV BRRCHRRT #1 <BRR> 

530 REM 

546 RS=IHTCP;:<Q>/fl> 

545 C=INT<RHD<1>*8>+1 

546 IFC+240=PEEKC53281 )0RC=CCTHEH545 

550 POKE90 ,20 :P0KE39 .0+6 : POKES 1 ,flS :POKE786,C 

560 SVS< 29408 > 

565 CC=C 

570 REM 

580 REM *DISPLRV BRRCHRRT #2 <LINE> 

590 REM 

600 Q=Q+1 

610 rs=int<:p;;o2>/r> 

615 C=IHT<RMD<:1>#8> + 1 

fi 1 6 I FC+240=PEEK (. 5328 1 > 0RC=CCTHEN6 1 5 

620 POKE90 . 20 : F0KE89 , Q+6 : POKES 1 . RS : POKE786 . C 

630 SVSC 29760 > 

635 CC=C 

640 HEXTQ 

650 GETR*:IFfl*=""THEN 650 

655 REM **URIT TILL KEV PRESSED TO END** 

RERDV. 
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SCROLLING ROUTINES 

There are four machine code routines in this section. These are to 
scroll an area of the screen in the four (right, left, up and down) 
directions. The routines do a complete scroll of the required area 
and also scroll the colour RAM. 

Again some of the previous routines are used for the displays and 
so are included in the loader. 



SCREEN SCROLLING RIGHT 

The first scrolling routine is called with SYS(29952); it scrolls a 
specified block of characters, one column to the right. The left most 
column is filled with spaces and the far right column disappears off 
the screen. The top left co-ordinates of the scrolled block are 
determined by two variables: column and line number. The width 
and height of the block are set by variables, with a minimum of 
and a maximum equivalent to the dimensions of the screen. The 
routine requires the following variable locations: 

89 column number of top left of scrolled block. 

90 line number of top left of scrolled block. 

91 height of scrolled block width of scrolled block. 

92 width of scrolled block. 

The colour is retained throughout. 

SCROLL LEFT 

The second scrolling routine scrolls the contents of a set block of 
screen characters one column to the left, the right most column is 
filled with spaces and the left most column disappears. The top left 
co-ordinates of the scrolled block are determined by two variables: 
column and line number. The width and height of the block are set 
by variables, within a minimum of and a maximum equivalent to 
the dimensions of the screen. The routine requires the following 
variable locations: 

89 column number of top left of scrolled block. 

90 line number of top left of scrolled block. 

91 height of scrolled block. 

92 width of scrolled block. 

The colour is retained throughout this routine. 
This routine is called with SYS (30976). 
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SCROLL UP 

This routine scrolls a specified block of screen characters up one 
line, the bottom line is filled with spaces and the top line 
disappears. The top left co-ordinates of the scrolled block are 
determined by two variables: column number and line number. 
The width and height of the block are set by variables, with a 
minimum of and a maximum equivalent to the dimensions of 
the screen. This routine requires the following variable locations: 

89 column number of top left and scrolled block. 

90 line number of top left of scrolled block. 

91 width of scrolled block. 

92 height of scrolled block. 

The colour is retained throughout this routine. 
This routine is called with SYS (30128). 



SCROLL DOWN 

This routine scrolls a specified block of screen characters down one 
line, the top line is filled with spaces and the bottom line 
disappears. The top left co-ordinates of the scrolled block are 
determined by two variables: column number and line number. 
The width and height of the block are set by variables, with a 
minimum of and a maximum equivalent to the dimensions of the 
screen. This routine requires the following variable locations: 

89 column number of top left and scrolled block. 

90 line number of top left of scrolled block. 

91 width of scrolled block. 

92 height of scrolled block. 

The colour is retained throughout this routine. 
This routine is called with SYS (30240). 
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10 REM 

28 REM ******************************* 

38 REM #ROUTINE TO CALCULATE SCREEN * 

40 REM *HDDRESS FROM VALUES FOR * 

50 REM * COLUMN IN S3 * 

60 REM * LINE IN 90 * 

70 REM *RDORESS RETURNED IN 91 RHD 92* 

88 REM *THIS ROUTINE IS ONLV CALLED * 

90 REM *BV OTHER ROUTINES IN THE * 

100 REM*PACKAGE.DO NOT USE BV ITSELF.* 

110 REM*ERROR FLAG IN LOCATION 785 * 

1 20 REM******************************* 

130 1=28672 :T=0 

140 READ A 

150 IF A=-l THEN 190 

160 T=T+fl:POKEI,A 

170 1=1+1 

188 GOTO 140 

1 90 PR I NT " ZF.OUJ I NE 1 : " 

200 IF T= 11973 THEN PRINT" HBENTERED O.K":GOTO 1000 

210 PR I NT" CENTERED INCORRECTLV" 

220 END 

230 DATA169, 0,141 .17,3.165.89 

248 DATA43 .66 .201 ,40, 176,74 ,165 

258 0ATA98 . 48 . 82 . 28 1 . 25 . 1 76 . 90 

260 DATfll 69 ,0 . 133 .87 . 133 .88, 133 

278 DAT A94 , 1 33 . 95 . 1 65 , 98 , 248 . 1 5 

288 OATA170..24 . 165,87, 185 .48 . 133 

298 DAT A87 ,144,2. 238 . 88 . 262 . 208 

300 DAT A242 . 24 . 1 65 . 87 , 1 1 , 89 . 1 33 
3 IS DAT A87 . 1 65 . 88 . 1 05 , 4 . 1 33 . 88 

328 DATA24 . 1 65 , 87 . 1 33 . 94 , 1 65 . 88 

330 DATA 105, 21 2, 133,95.96, 169.1 

348 DATA141 .17,3,169,0.133.89 

350 DATA76.7, 112. 169.2. 141 .17 

368 DATR3 . 169 .39 . 133 .89 .76,7 

370 DATfll 12. 169. 3, 141 .17.3.169 

380 D AT A8 , 1 33 , 90 , 76 , 7 , 1 1 2 . 1 69 

39S DATH4 , 1 4 1. 1 7 . 3 . 1 69 , 24 . 1 33 

488 DATA99. 76. 7. 11 2,-1 

1800 REM 

1010 REM******************************* 

1828 REM*ORfiW A BORDER OF AHV SIZE,AHV* 

1836 REM*LOCATION. AND ANV COLOUR. TOP* 

1040 REM*LEFT COORDINATES ARE: * 

1050 REM* COLUMN IN 89 * 

1068 REM* LINE IN 90 * 

1870 REM* WIDTH IN 91 * 

1080 REM* HEIGHT IN 92 * 

1098 REM* COLOUR IS STORED IN 786. * 

1100 REM*ROUTINE CALLED BV SVS< 290245 * 
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11 10 REM******************************* 

1120 1=29024 :T=0 

1130 READ fl 

1140 IF R=-l THEN 1180 

1150 POKE I ,R:T=T+fi 

1160 1=1+1 

1170 GOTO 1130 

11S0 PR I NT "ROUTINE 2:" 

1190 IF T=20557 THEN PR I NT" NEUTERED 0. K. " :GOTO2600 

1200 PR I NT" WINTERED IHCORRECTLV" 

1210 END 

1220 DRTR72 . 152 .72 . 138 .72 ,b-i ,0 

1 230 DRTR 1 1 2 . 1 65 , 87 , 1 33 . 89 . 1 65 . 88 

1 240 DRTR 1 33 .90.1 69 .. 1 00 .141 .16,3 

1250 DRTR32.212.113.24.165.87.105 

1 260 DRTR4 1 , 1 33 .87.1 33 . 89 , 1 65 . 88 

1270 DRTR 1 05 , , 1 33 . 88 . 1 33 . 90 . 1 69 

1280 DRTR101 .141 .16.3.32,239,113 

1290 DRTR24, 165.89. 101 .91 ,133.87 

1 300 DRTR 1 98 , 87 , 1 65 , 90 , 1 05 , . 1 33 

1310 DRTR88.169.103.141 .16.3.32 

1320 DRTR239 .113 . 165 .89, 133,87, 165 

1 330 DRTR90 .133. 88 . 1 66 . 92 , 1 98 , 87 

1340 DRTR202.202.24,165.87,105.40 

1 350 DRTR 1 33 , 87 , 1 65 ,88 . 1 05 ,0.1 33 

1 360 DRTR38 . 202 , 208 , 240 , 1 69 , 99 , 1 4 1 

1370 DRTR16 .3 .32 .212 .113. 104 . 170 

1380 DRTR104.168.104.96.164.91 .165 

1 390 DRTR87 , 1 33 . 94 . 1 65 . 88 .24.1 05 

1 400 DRTR2J 2 . 1 33 .95.1 73 , 1 6 , 3 , 1 45 

1410 DRTR87 , 1 73 . 1 8 . 3 . 1 45 . 94 , 1 36 

1420 DRTR208 . 243 , 96 . 1 60 . . 1 66 . 92 

1 430 DRTR202 , 202 ,, 1 73 , 1 6 , 3 . 1 45 . 87 

1440 DATR24,165,87,133,94,165,88 

1 450 DRTR 1 05 . 2 1 2 , 1 33 , 95 , 1 73 , 1 8 , 3 

1460 DRTfi 1 45 , 94 , 24 . 1 65 , 87 , 1 05 . 40 

1 470 DRTR 1 33 , 87 , 1 65 . 88 . 1 05 ,0,1 33 

1 430 DRTR88 , 202 , 208 , 2 1 9 , 96 , - 1 

2000 REM 

2010 REM******************************* 

2020 PEM*ROUTINE TO PLACE THE CURSOR * 

2030 PEM*flT R LOCATION ON THE SCREEN * 

2040 PEM*WHOSE COORDINATES RRE STORED * 

2050 REM* IN 87=LINE AND 88=C0LUMN. * 

2060 PEM*R0UTINE CALLED BV SVSC2921S5* 

2070 REM******************************* 

2080 I =292 1 6 : T=0 

2090 READ R 

2100 IF R=-l THEN2140 

2110 POKE I ,fl:T=T+R 

2120 1=1+1 
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2138 GOTO2090 

2140 PR I NT "ROUTINE 3:" 

2150 IF T=5163 THEN PRINT"H>!ENTERED 0. K. " :GOTO3880 

2166 PRIHT"MSEHTERED INCORRECTLY" 

2170 END 

2130 DflTR72.152.72.138.72.169.19 

2190 DflTfl32.22.231 . 165 .87 .240 .9 

2280 DAT A 1 69 . 1 7 . 32 , 22 . 23 1 . 1 98 . 87 

22 1 DATR288 . 247 . 1 65 , 88 , 240 ,9.1 69 

2220 DATR29 . 32 . 22 . 23 1 . 1 98 . 88 , 208 

2230 DATA247 . 1 04 . 1 70 . 1 04 . 1 68 . 1 04 . 95 . - 1 

3000 REM 

301 rem******************************* 
3020 rem*scroll contents of screen * 
3030 rem*block right one column. top * 
3840 rem*left coordinates of block in * 
3058 rem*89 <xol> and 90 cline). block* 
3860 rem*height in 91 and width in 92.* 
3070 rem*colour is retained throughout* 
3830 rem*routine called bv svsc 29952 > * 

3098 REM******************************* 

3108 1=29952 :T=0 

3110 READ ft 

3120 IF R=-l THEN3168 

3130 POKE I,fl:T=T+fl 

3140 1=1+1 

3150 GOTO3110 

3168 PR I NT "ROUTINE 4:" 

3170 IF T= 10955 THEN PRINTMSSENTERED 0. K. " :GOTO4008 

3188 PRINT-'HSENTERED INCORRECTLV" 

3190 END 

3208 DATA72,152,72,138,72,32,0 

3210 0RTA112, 56. 165.87.233.1 .133 

3228 DATR89 . 1 65 . 88 . 233 . . 1 33 , 90 

3230 DATA166.91 .164.92.136.177,89 

3240 DATR145.87. 165,90,24, 105.212 

3250 DATA 1 33 . 97 . 1 65 . 88 . 24 . 1 05 . 21 2 

3260 DATA 1 33 ,95 , 1 65 . 89 . 1 33 , 96 . 1 65 

3270 0ATA87, 133,94 .. 177 , 96 . 1 45 . 94 

3280 DATA 1 36 . 208 . 223 . 1 69 , 32 . 1 45 . 87 

3290 DATR24 . 1 65 . 87 . 1 85 .40.1 33 . 87 

3300 DATA 1 44 , 2 , 230 . 88 . 24 , 1 65 . 89 ' 

33 1 DATA 1 @5 . 40 , 1 33 . 89 . 1 44 . 2 . 230 

3320 DATA9Q . 202 . 208 . 1 9 1 , 1 04 , 1 70 , 1 04 

3330 DATRie8.104.96.-l 

4080 REM 

4010 REM******************************* 

4020 REM*SCROLL CONTENTS OF SCREEN * 

4030 REM*BLOCK LEFT ONE COLUMN. TOP * 

4040 REM*LEFT COORDINATES OF BLOCK IN * 

4058 REM*89 CICOL) AND 90 CLIHE>. BLOCK* 
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4860 REM*HEIGHT IN 91 AND WIDTH IN 92.* 

4070 REM*COLOUR IS RETAINED THROUGHOUT* 

40S0 REM*ROUTINE CALLED BY SVS< 30976 > * 

4090 REM******************************* 

4190 I=30976:T=0 

4110 READ A 

4120 IF A=-l THEN4160 

4136 POKE I.A:T=T+A 

4140 1=1+1 

4150 GOTO4110 

4160 PR I NT "^ROUTINE 5:" 

4170. IF T= 10720 THEN PRINT" SEENTERED 0. K. " :GOTO5000 

4180 PRINT"MHENTERED INCORRECTLV" 

4190 END 

4200 DAT A72, 152.72.138.72,32,0 

4210 DATA1 12 .24 . 165 .87, 165 . 1 .133 

4220 DATAS9, 165,88, 105 .0, 133,98 

4230 DATA 1 66 . 9 1 , 1 60 . . 1 77 , 89 . 1 45 

4240 DATA87 . 165 .90 .24 , 105,212, 133 

4250 DATA97 . 1 65 . 88 . 24 . 1 05 , 2 1 2 , 1 33 

4280 DATA196.92,144.221 .169.32,145 

4290 DAT A87 . 24 , 1 65 , 87 , 1 05 ,40.1 33 

4300 L"":TA37 . 1 44 , 2 , 230 , 88 , 24 , 1 65 

4310 DATA89 . 1 05 . 40 . 1 33 . 89 . 1 44 , 2 

4320 DATA230,90.202.208.190.104, 176 

4330 DAT A 1 04 . 1 68 . 1 04 . 96 , , - 1 

5008 REM 

5010 REM******************************* 

5020 REM*SCROLL CONTENTS OF SCREEN * 

5030 REM*BLOCK UP ONE LINE. TOP LEFT * 

5040 REM*COORDINATES OF BLOCK IN 89 * 

5050 REM* < COL > AND 90 <LINE>. BLOCK * 

5060 REM*HEIGHT IN 91 AND WIDTH IN 92.* 

5070 REM*COLOUR IS RETAINED THROUGHOUT* 

5080 REM*ROUTINE CALLED BV S't'S^ 30128!:' * 

5090 REM******************************* 

5108 1=30123 :T=0 

5110 READ A 

5120 IF A=-l THEN5160 

5130 POKE I ,A:T=T+A 

5140 1=1+1 

5150 GOTO5110 

5160 PR I NT "ROUTINE 6:" 

5170 IF T=11564 THEN PRINT"HHENTERED 0. K. " :GOTO6000 

5180 PR I NT" CENTERED INCORRECTLV 

5190 END 

5200 DAT A72 , 1 52 , 72 , 1 38 , 72 . 32 , 

5210 DATA1 12 ,24 . 165 ,87 . 105 .40 .133 

5220 DATA89 , 1 65 , 88 , 1 05 . , 1 33 . 90 
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5230 DflTfl 1 66 . 92 , 1 64 , 9 1 . 1 36 . 1 77 . 89 

5240 DflTfl 1 45 . 87 . 1 65 . 90 , 24 , 1 05 , 2 1 2 

5250 DRTfi 1 33 . 97 . 1 65 . 88 . 24 . 1 05 , 2 1 2 

5260 DflTfl 1 33 , 95 , 1 65 , 89 , 1 33 . 96 , 1 65 

5270 DRTA87 , 1 33 . 94 . 1 77 . 96 , 1 45 , 94 

5230 DRTR136. 16 .223 .202 .240 .,25. 24 

5290 DflTfl 1 65 , 87 . 1 05 . 40 , 1 33 ,87.144 

5300 DflTfl2 , 230 , 88 .. 24 , 1 65 , 89 . 1 05 

53 1 DATA40 , 1 33 . 89 . 1 44 . 2 . 230 , 96 

5320 DRTH76 . 1 99 . 1 1 7 . 1 64 . 9 1 , 1 36 , 1 69 

5330 DRTR32 . 1 45 . 87 . 1 36 , 1 6 , 249 . 1 04 

5340 DflTfl 1 70 , 1 04 , 1 68 , 1 04 , 96 , - 1 

6000 REM 

60 1 REM******************************* 

6020 REM*SCROLL CONTENTS OF SCREEN * 

6030 REM*BLOCK DOWN ONE LINE. TOP LEFT* 

6040 REM*COORDINflTES OF BLOCK IN 89 * 

6050 REM* < COL > 90 (LINE) . BLOCK HEIGHT * 

6060 REM* IN 91 AND WIDTH IN 92. * 

6870 REM*COLOUR IS RETAINED THROUGHOUT* 

6030 REM*ROUTINE CALLED BV SVS<30240> * 

6090 REM******************************* 

6 1 00 I =30240 : T=0 

6110 READ fl 

6120 IF A=-l THEN6160 

6130 POKE I ,fi:T=T+fl 

6146 1=1+1 

6150 G0T06119 

6160 PR I NT "TROUT I NE 7:" 

6170 IF T=14455 THEN PRINT"HSENTERED 0. K. " :GOTO7000 

61SS PRINT"M8ENTERED INCORRECTLY" 

6190 END 

6200 DRTR72 . 1 52 . 72 . 1 38 . 72 , 32 .. 9 

6210 DRTA1 12 . 166 .92 .202 .24 , 165 ,87 

6220 DflTfl 1 95 , 40 , 1 33 , 87 , 1 44 , 2 , 230 

6230 DRTflSS , 202 , 208 , 242 , 56 . 1 65 . 87 

6240 DATA233 ,40,1 33 , 89 , 1 65 , 88 , 233 

6250 DflTfl© . 1 33 . 90 , 1 66 . 92 , 1 64 , 9 1 

6260 DflTfl 1 36 . 1 77 .. 89 , 1 45 . 37 , 1 65 , 90 

6270 DATH24 . 1 05 . 2 1 2 . 1 33 . 97 . 1 65 . 88 

6280 DATR24 . 1 05 , 2 1 2 . 1 33 . 95 . 1 65 . 89 

6290 DflTfl 1 33 . 96 . 1 65 . 87 , 1 33 , 94 , 1 77 

6300 DRTFI96 , 1 45 , 94 . 1 36 , 1 6 ., 223 ,202 

6310 DfiTfl240 , 25 . 56 , 1 65 , 87 , 233 , 40 

6320 DflTfl 1 33 , 87 , 1 76 , 2 , 1 98 , 88 , 56 

6336 DflTfl 165, 89 ., 233 , 40 , 1 33 . 89 , 1 76 

6340 DflTfl2 , 1 98 , 90 . 76 , 72 , 1 1 8 , 164 

6356 DATA9 1,136.169. 32 , 1 45 . 87 . 1 36 

6360 DfiTfl208 , 249 .104.170.1 04 . 1 68 . 1 64 

6370 DflTR96,-l 

7000 REM 
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701 REM******************************* 
7020 REM*DRHU VERTICAL ERR - BOTTOM TO* 
7030 REM*TOP OF SPACES TERMINATED IN A* 
7040 REH*THIN LINE. RESOLUTION 135 X 40* 
7050 REM*COLUMN # IN 89, * 

7060 REN*LINE # IN 90, * 

7070 REH*LENGTH IN 91 . * 

7080 REM*COLOUR IN 786. * 

7098 REM*ROUTINE CALLED BV SVS< 29760) * 
7 1 00 REM******************************* 
7110 I=297S0:T=0 
7120 READ R 
7130 IF fl=-l THEN7170 

7149 POKE I,A;T=T+A 

7150 1=1+1 
7160 GOTO7120 

7170 PR I NT "ROUTINE 8:" 

7180 IF T=8307 THEN PR I NT" CENTERED 0. K. " :GOTO7330 

7190 PRINT"S5EHTERE0 IHCORRECTLV" 

7200 END 

7210 DRTR72,'152,72,138,72,32.0 

7220 DATA112. 160, 0.165. 91 .201 .8 

7230 DATR48, 37. 233.8,133,91 .169 

7240 DATR32 .145.87.173.18.3,1 45 

7250 DAT A94 , 24 . 1 65 , 37 , 233 . 39 . 1 33 

7260 DAT A87 , 1 33 , 94 . 1 65 , 88 . 233 . 

7270 DAT A 1 33 , 83 , 24 , 1 05 . 2 1 2 . 1 33 , 95 

7280 DAT A 165. 88, 208. 2 13, 170. 189, 134 

7290 0ATA116,145.87,173.13,3.145 

7300 DRTR94 , 1 04 , 1 70 . 1 04 . 1 68 . 1 04 , SB 

7310 DATA 100. 82, 70. 64. 67, 68. 69 

7320 DRTR99.32.0.-1 

7330 POKES 1.0: P0KE52 ,112 

7340 P0KE55 , : P0KE56 , 1 1 2 : CLR i NEW 

REflDV. 
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BLOCK SCROLLING 

The loader on pp. 141-6 should be loaded and run once before 
using this program. 

DESCRIPTION 

The program uses a block scroll routine to scroll up or down a long 
list of items. To scroll up use the F1 key, and to scroll down use the 
F3 key. The program usesthefollowing Machine Code routines: 

DRAW BORDER -SYS (29024) 

SCROLL BLOCK UPOR DOWN ONE LINE-SYS (30128) 

CURSOR CONTROL- SYS (29216) 

PROGRAM STRUCTURE 

The following lines are of particular interest: 

120-135 : Limitthetopof memory and clearthe pointers. 

210-320 : The data table to be displayed. 

330-360 : Reads the data into the array L$. 

400-470 : Displays the test using the cursor control routine. 

505-520 : Draws a border around the display. 

590-640 : Checks for legal key press and if without bounds 

scrolls up or down. 
680-710 : Scrollsthe list up one entry. 

750-780 : Scrolls the list down one entry. 
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16 REM ******************************** 

20 REM *THIS PROGRAM USES THE UP AND * 

25 REM *DOWN BLOCK SCROLL * 

30 REM *ROUTIHES TO DISPLAY THE * 

35 REM *COHTEHTS OF fl LONG LIST * 

40 REM *DflTR ITEMS. USE KEY S TO * 

45 REM *SCROLL UP THE LIST * 

50 REM *AHO KEV 2 TO SCROLL DOWN THE * 

55 REM *LIST. * 

66 REM *THE MACHINE CODE ROUTINES USED* 

65 REM *BY THIS PROGRAM ARE: * 

70 REM * SYSC 29024) - DRAW A BORDER * 

80 REM * SYS < 301 28 > - SCROLL BLOCK * 

85 REM * UP ONE LINE * 

50 REM * DOWN ONE LINE * 

100 REM * SYS < 2921 6 > - CURSOR CONTROL* 

110 REM ******************************* 

120 POKE55,0:POKE56.112 

1 30 POKES 1,8: P0KE52 . 1 1 2 : CLR 

135 REM LOWER TOP OF MEMORY 

146 DIML*<40> 

150 REM 

160 REM *TABLE OF DATA TO EE DISPLAYED. 

165 REM * NOTE THE USE OF 

170 REM *NULL ENTRIES AT BEGIHING AND 

175 REM * END OF THE TABLE 

180 REM *THIS GIVES A BLANK SCREEN 

185 REM * TRAILER AT BOTH ENDS 

190 REM *0F THE DISPLAY. ESSENTIAL FOR 

195 REM * NEATNESS. 

200 REM 

210 DATA" "," "." "•" "-" "■" "-" "•" " 

220 DATA " ITEM 1 

225 DATA " ITEM 2 

230 DATA " ITEM 3 * 

235 DATA " ITEM 4 

240 DATA " I TEM 5 

245 DATA " ITEM 6 

250 DATA "ITEM 7 

255 DATA " ITEM 8 

260 DATA "ITEM 9 

265 DATA " ITEM 18 

270 DATA " ITEM 11 

275 DATA " ITEM 12 

280 DATA "ITEM 13 

285 DATA " ITEM 14 

290 DATA " ITEM 15 

295 DATA " ITEM 16 

300 DATA " ITEM 17 

385 DATA " ITEM 18 

310 DATA " ITEM 19 



148 



315 DRTfl "ITEM 20 " 

326 DRTfl" "," "," "," "." "," "." "," " 

330 F0RQ=1T036 

346 RERDfl* 

350 LS';Q)=fl* 

368 NEXTQ 

370 REM 

330 REM *DISPLRV TEXT USING CURSOR 

335 REM * CONTROL 

390 REM 

480 PR I NT "3" 

485 P0KE5328 1,12: POKE53280 , 1 2 

410 DflTR3.6."SEXflMPLE OF SCROLLED LONG LIST* 

420 DRTfl?,9,"SJSE KEV Fl TO SCROLL UP ■" 

430 DflTA8,9."3JSE KEV F3 TO SCROLL DOWNB" 

440 F0RQ=1T03 

450 RERDR : POKES? .fl :RERDfl :P0KE88, A :SVS< 292 16 > 

460 RERDR*:PRINT"r9"A* 

478 NEXTQ 

430 REM 

490 REM *DRAW BORDER flROUND SCROLLED 

495 REM * PORTION OF SCREEN 

588 REM 

505 c=e 

5 1 P0KE89 . 6 : P0KE9© .10: POKES 1 . 39 : P0KE92 . 1 

515 P0KE786.C:SVS<: 29024) 

520 GOTO6S0 

530 REM 

540 REM *LOOK FOR KEV INPUT IN 

545 REM *LOCflTION 197 

550 REM *IF 197=4 THEN KEV Fl PRESSED 

555 REM * AND SCROLL UP 

566 REM *IF 197=5 THEN KEV F3 PRESSED 

565 REM * AND SCROLL DOWN 

570 REM *RLSO CHECK POINTER TO TABLE IS 

575 REM * WITHIN BOUNDS. 

580 REM 

590 IFGK1THEHQ=1 

600 IFQ>29THENG=29 

618 X=PEEKa97) 

620 IFX=4 THEN Q=Q+1 :GOTO6S0 

630 IFX=5 THEN Q=0-1 :GOTO750 

640 G0T0598 

658 REM 

6S0 REM *SCROLL LIST UP ONE ENTRV 

676 REM 

680 P0KE89 . 2 : P0KE90 ,12: P0KE9 1.37: POKE92 . 6 

685 SVSC3012S> 

690 P0KES7 .17: P0KE88 . 2 : SVS < 292 1 6 ;■ 

780 PRINT"!IJ"L*<:Q+5> 

710 GOTO590 
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728 REM 

730 REM *SCROLL LIST DOWN ONE ENTRV 

740 REM 

759 P0KE89 , 2 : POKE90 ,12: POKES 1 , 37 : P0KE92 . 6 
755 SVS< 30240 > 

760 P0KE87 . 1 2 : P0KE83 , 2 : S VS < 292 1 6 > 
770 PRIHT"!a"L*<:C3> 

738 G0T0599 
RERDV. 
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LONG WAVEFORM GRAPH 

The loader on pp. 141-6 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program displays the graph of a function and scrolls the 
function across the screen from right to left. The Machine Code 
routines used in this program are as follows: 

DRAW BORDER -SYS (29024) 
CURSOR CONTROL -SYS (29216) 
SCROLL SCREEN BLOCK LEFT- SYS (30976) 
DRAW VERTICAL FINE RES LINE -SYS (29760) 

PROGRAM STRUCTURE 



The lines of interest in the program are as follows: 
19-20 : Limit top of memory and clear pointers. 

Draw border around the scrolled screen area. 

Displays the text using the cursor control routine. 

Displays the graph of the function and scrolls from 

left to right. 



40-41 
50-80 
90-140 
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1 REM ********************************* 

2 REM *THIS IS A VARIATION ON THE PRG * 

3 REM *ON PAGE 132, THE GRAPH OF THE * 

4 REM *FUNCTION IS SCROLLED ACROSS * 

5 REM *THE SCREEN FROM RIGHT * 

6 REM *TO LEFT CONTINUOUSLY AS EACH * 

7 REM *PLOT POINT IS CALCULATED. # 

8 REM * IDEAL FOR DISPLAYING LONG * 

9 REPl *GRAPHICAL DISPLAYS. * 

10 REM*USES THE FOLLOWING MACHINE * 

11 REM*CODE ROUTINES: * 

12 REM* SVS<29216) - CURSOR CONTROL * 

13 REM* SYSC 29024) - DRAW BORDER * 

14 REM* SVS< 30976) - SCROLL SCREEN * 

15 REM* BLOCK LEFT * 

16 REM* SYSC29766) - DRAW VERTICAL * 

17 REM* FINE RESOLUTION LINE * 

1 8 REM********************************* 

19 POKE55,0:POKE56, 112 

28 POKE51,0:POKE52,112:CLR 

25 REM LOWER TOP OF MEMORY POINTERS 

38 PR I NT "3" 

31 P0KE53281 . 12 :POKE53280, 12 

34 REM 

35 REM *DRFIW BORDER AROUND SCROLLED 

36 REM * SCREEN AREA 

37 REM 

40 P0KE89 . : POKE90 . 7 : P0KE9 1 , 39 : P0KE92 . 1 5 

41 P0KE786 , : SYS < 29024 ) 

44 REM 

45 REM *DISPLRY TEXT USING CURSOR 

46 REM * CONTROL 

47 REM 

50 P0KE87 , 3 : P0KE88 . 4 : SYS < 292 1 6 > 

60 PRINT" SfSEXAMPLE DISPLAY OF LONG WAVEFORM! 

70 P0KE87 , 4 : P0KE88 .10: SYS < 292 1 6 ) 

80 PRINT" S3JSING LEFT SCROLLING*" 

84 REM 

85 REM *D I SPLAY GRAPH OF FUNCTION 

86 REM *SCROLLED FROM RIGHT TO LEFT 

87 REM 

90 FORG=1TO100STEP. 15 

100 A=IHTCSItKQ>*40>+45 

1 1 P0KE89 . 2 : POKE90 . 3 : POKES 1.12: P0KE32 , 36 

115 SYS (130976) 

120 POKE89..38 .-POKE90 . 19 : POKES 1 .fi :P0KE786..6 

125 SYS'; 29760) 

130 FORX=1TO100:HEXTX 

140 NEXTQ 

READY. 
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LARGE SCREEN DISPLAY 

LARGE SCREEN INITIALISATION 

The area to be used as a large screen is first initialised, the variables 
to be used are initialised and the memory area, to be used for text 
storage, is cleared. There are three variables that the initialisation 
sequence uses. They are as follows: the number of columns wide 
and lines deep of the large screen and the most significant byte of 
the starting address of the large screen memory. The top of the 
memory must be lowered to the start of the large screen memory, 
otherwise Basic will overwrite the text area. The starting address 
used will depend on the size of the large text area, and each page 
will require 1 K of memory. In our example Basic program, this will 
allow 8 pages of text. This routine requires the following variable 
locations: 

820 large screen width in columns. 

821 large screen depth in lines. 

823 MSB of start of text storage memory address. 
This routine is called from a Basic program with SYS (31083) 
The large screen section also uses some of the other Machine 
Code routines so all the code should be in the 64 before using. 

LARGE SCREEN CLEAR 

This section of code clears the entire large screen memory area, all 
locations in that area are set to decimal 32, the screen ASCII code 
for a space character. This routine does not require any variables. 
To call this routine from a Basic program use SYS (31124). 

LARGE SCREEN DISPLAY 

Since the text area is actually larger than the size of the screen, this 
routine displays a section of the large screen. Specifying 
that the co-ordinates are column and line 0, they will display the 
left 40 columns and the top 25 lines of the large screen text area. 
Similarly column 40 and line will display the right hand 40 
columns and the top 25 lines, or column 20 line will display the 
central 40 columns and the top 25 lines. Using this procedure any 
part of the text area can be displayed, providing it is within the limits 
of the maximum column and line number. Line and column 
number should not be less than 0, nor should the column position 
be greater than the large screen width minus 40, or the line number 
greater than the large screen width minus 40, or the line number 
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greater than the large screen depth minus 25. These co-ordinates 
designate the top left corner of the screen, the use of greater values 
will result in a faulty display. This routine requires the following 
variable locations: 

824 large screen column number where top left of display starts. 

825 large screen line number where top left of display starts. 
This routine is called from a Basic program with SYS(31 1 73). 

U\RGE SCREEN SAVE 

This section of code saves the contents of the screen and stores it in 
the large screen memory area, in a position corresponding to the 
co-ordinates specified. The co-ordinates refer to the line and 
column number of the large screen and designate the position of 
the top left corner of the actual 64 screen. The constraints on 
co-ordinate size are the same as that defined for large screen 
display. Text displayed in the large screen memory can be saved 
and then recalled later, using a monitor to save it. This routine 
requires the following variable locations: 

824 large screen column number where top left of display starts. 

825 large screen line number where top left of display starts. 
This routine is called from a Basic program with SYS (31261 ). 

DISPLAY PAGE 

This routine requires the large screen memory to be initialised with 
the initialisation routine so that it is 40 columns wide and up to six 
pages or 150 lines long. Any of the six pages can be displayed by 
putting the required page number into location 91 and calling the 
routine. If fewer pages are required, then the initialisation routine 
should be given the correct number of lines for the required 
number of pages. This routine requires the following variable 
locations: 

91 page numberto be displayed. 

To call this routine from a Basic program use SYS (31349). 

SAVE LARGE SCREEN PAGE 

This routine will save the current screen contents into the large 
screen memory area at a position determined by the page number. 
This routine requires the large screen memory to be initialised with 
the initialisation routine so that it is 40 columns wide and up to six 
pages or 150 lines long. Any of the six pages can be saved by 
putting the required page number into location 91 and calling the 
routine. If fewer pages are required, then the initialisation routine 
should be given the correct number of lines for the required 
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number of pages. This routine requires the following variable 
locations: 

91 page numberto be saved. 

To call this routine from a Basic program use SYS(3 1381). 



155 



10 REM 

20 REM ******************************* 

30 REM *ROUTINE TO CALCULATE SCREEN * 

40 REM *ADDRESS FROM VALUES FOR * 

50 REM * COLUMN IN 89 * 

60 REM * LINE IN 90 * 

70 REM *ADDRESS RETURNED IN 91 AND 92* 

80 REM *THIS ROUTINE IS ONLV CALLED * 

90 REM *BV OTHER ROUTINES IN THE * 

100 REM*PACKRGE,DO NOT USE BV ITSELF.* 

110 REM*ERROR FLAG IN LOCATION 735 * 

1 20 REM******************************* 

130 I=23672:T=0 

140 READ A 

150 IF A=-l THEN 190 

160 T=T+A:POKEI,A 

170 1=1+1 

180 GOTO 140 

1 90 PRINT" 3?OUT I HE 1 : " 

2@0 IF T=11973 THEN PRINT"SHENTERED O.K":GOTO 1800 

218 PRINT"KMENTERED INCORRECTLY" 

220 END 

230 DATA169. 0.141 .17,3.165.89 

240 DATR48. 66. 201 .40.176,74,165 

250 DATA90. 48. 82. 201 .25,176.90 

260 DATA169,0.133.87,133,88.133 

278 DflTA94,133,95,165.98.248.15 

280 DATA170,24.165,87,185.40,133 

296 DRTA87 .144.2. 230 . 88 , 202 . 208 

308 DATR242, 24. 165, 87. 101 .89,133 

310 DATA87 .165 .88 . 105 .4, 133,88 

320 0ATA24,165,S7.133.94,165.38 

338 0ATA185,212,133.95.96.169.1 

340 DATA141 ,17,3.169.0,133,89 

350 DATA76.7.112.169.2.141 .17 

360 DATR3. 169,39,133.89.76,7 

370 DRTA112,169,3,141,17.3.169 

380 DATA0.133,90,76,7,112,169 

390 DATA4, 141 ,17.3,169.24.133 

408 DRTA90,76,7,112,-1 

1008 REM 

1010 REM 

1 020 REM******************************* 

1030 REM*DRAW A HORIZONTAL BAR OF flNV * 

1040 REM*64 CHARACTER. CHARACTER STORED* 

1850 REM* IN 784, COLUMN START IN 89, * 

1060 REM*LINE START IN 90, LENGTH OF * 

1070 REM*LINE IN 91, COLOUR IN 786. * 

1080 REM*ROUTINE CALLED BV SVSC 28800 > * 

1 090 REM******************************* 

1108 I=28S08:T=0 
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1110 

1120 
1130 
1140 
1150 

use 

1170 
1180. 
1190 

1200 

1210 
1220 
1230 
1240 

2000 
2010 

2020 
2036 
2040 
2050 
2069 
2070 
2080 
2090 
2109 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2 180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 

3000 
3610 

3020 
3036 
3940 
3050 
3060 
3078 
3080 
3090 



READ R 

IF R=-l THEN 1160 

POKE I.R:T=T+R 

1 = 1 + 1 

GOTO 1110 

PR I NT "ROUTINE 2:" 

IF T=3095 THEN PRINT"SHENTERED O.K" :GOTO 2060 

PRINT"H!!ENTERED INCORRECTLV" 

END 

DRTR72.152,72,138,72,32,0 

DflTfll 12. 164.91 .173.16.3.145 

DATR87,173,13,3.145.94.136 

DRTR26S' .243, 104, 170, 104 . 168 . 164 

DRTR96.-1 

REM 

REM******************************* 

REM* INVERT R BLOCK OF THE SCREEN * 

REM*TOP LEFT COORDINATES IN 89 * 

REM*<COL> BUD 90<LINE>, HEIGHT IN* 

REM*91 AND WIDTH IN 92, COLOUR IN* 

REM*786. * 

REM*ROUTINE CALLED BV SVSC 28960 > * 

REM******************************* 

1=28960 :T=0 

RERD R 

IF A=-l THEN2150 

POKE I,A:T=T+fl 

1 = 1 + 1 

GOTO2100 

PR I NT "ROUTINE 3:" 

IF T=5859 THEN PRINT"HSENTERED 0. K. " .-GOTO3000 

PR I NT "SINTERED INCORRECTLV" 

END 

DATR72, 152,72, 138 .72,32 .0 

DATA112,166,92.164.91 .136.177 

DATAS7,73.123.145.87.173,18 

DRTA3. 145,94. 136, 16,242.24 

DRTR165,87, 105,40, 133,87. 133 

DRTR94, 144 .4 .230.88 .230 .95 

DATA202.208 .221 . 104, 170, 104, 168 

DATA104. 96.-1 

REM 

REM******************************* 

REM*DRAW A BORDER OF RNV SIZE.flNV* 

REM*LOCRTION. RND RNV COLOUR. TOP* 

REM*LEFT COORDINATES 



REM* 
REM* 
REM* 
REM* 



COLUMN 
LINE 
WIDTH 
HEIGHT 



IN 
IN 
IN 
IN 



ARE: 
89 
90 
91 

92 



REM* COLOUR IS STORED IN 786. 
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3188 PEM*ROUTINE CflLLED BV S VS < 29824 > * 
3118 REM******************************* 

3129 1=29024 :T=8 

3130 READ R 

3140 IF fl=-l THEN3180 

3158 POKE I,A:T=T+A 

3168 1=1+1 

3170 G0T03138 

3130 PRINT "ROUTINE 4:" 

3190 IF T=20557 THEN PRINT"BEENTERED 0. K. " :GOTO4880 

3200 PRINT"MSENTEREO IHCORRECTLV" 

321S END 

3220 OAT A72, 152. 72, 133, 72, 32,0 

3238 DATA1 12. 165. 87, 133, 89, 165, 88 

3240 OATA133,90,169,188,141 ,16,3 

3250 DATA32.212,113,24,165.87,105 

3268 DATA41,133,87,133,89.165,88 

3270 DATA185.8.133,88,133,90,169 

3288 DATA101 ,141,16,3,32,239.113 

3290 DATA24. 165. 39,181 ,91.133,87 

3380 DATA198 ,87, 165,98 . 185 .8. 133 

3318 DATA88.169,183,141,16.3,32 

3328 DATA239 , 1 13, 165,89, 133,87, 165 

3338 DATA90.133.38,166.92.193.87 

3340 DATA282 ,282 ,24 . 165 ,87 , 105,48 

3350 DAT A 133, 87, 165, 88, 105, 8,1 33 

3368 DATA8S, 202, 288, 240, 169, 99, 141 

3378 DATA16,3.32.212.113,104.178 

3388 OATA184.163,104.96.164,91,165 

3398 DATA87 , 1 33 . 94 , 1 65 , 88 , 24 . 1 05 

3400 DATA212,133,95,173,16,3,145 

3410 DATA87,173,13.3,145,94.136 

3428 0ATA288 ,243 ,96 , 168 ,0, 166,92 

3430 DATA202.202,173,16,3,145,87 

3440 DAT A24, 165, 37, 133, 94, 165, 88 

3458 DATA185 .212 , 133 .95 . 173 , 18 ,3 

3468 DATA145.94,24.165,87,185,48 

3470 DATA133.S7,165,33,105,8,133 

3438 DATA88,202,208,219,96,-1 

4000 REM 

4010 REM******************************* 

4828 REM*ROUTIHE TO PLACE THE CURSOR * 

4038 REM*AT A LOCATION ON THE SCREEN * 

4040 PEM*WHOSE COORDINATES ARE STORED * 

4050 REM* IN 37=LINE AND 88=C0LUMN. * 

4860 REM*R0UTINE CALLED BV S VS < 292 1 S > * 

4070 REM******************************* 

4080 1=29216 :T=0 

409*0 READ A 

4100 IF A=-l THEN4140 

4110 POKE I ,A:T=T+A 
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4120 1=1+1 

4130 GOTO4090 

4140 PR I NT 'TROUT I NE 5:" 

4150 IF T=5163 THEN PR I NT " HBENTERED 0. K. " :GOTO5000 

4160 PRINT"StSENTERED INCORRECTLY" 

4170 END 

4180 DRTR72, 152,72, 138.72. 169. 19 

4199 DATH32, 22, 231 ,165.87,240,9 

4200 DRTR169 . 17 .32 .22 ,231 , 198 ,87 
4210 OATR208,247, 165,88,240,9, 169 
4220 DRTR29 , 32 . 22 , 23 1 . 1 98 . 88 . 208 
4230 DATR247 . 104 . 178 . 104. 168, 104,96,-1 
5000 REM 

5010 REM 

5020 rem**************************************** 

5030 rem* this routine enables the use of r * 

5040 rem* lrrge screen in memory using the * 

5050 rem* normal video screen as r window on * 

5060 rem* the large screen. the dimensions of * 

5076 rem* the large screen rre 80 columns by * 

5080 rem* 100 lines and the window will be * 

5090 rem* moved over the large screen as the * 

5100 rem* data is entered, * 

5110 rem* the calls for the routnies * 

5120 rem* incorporated are as follows * 

5139 rem* 1> set up lrrge screen pointers * 

5140 rem* lines 120-150 of example * 
5150 rem* 2> call lrrge screen display routine* 
5160 rem* lines 640-650 of example * 
5170 rem* 3> clerr large screen * 
5180 rem* line 1340 of example * 
5190 rem* 4> large screen save routine * 
5200 rem* line 1580 of example * 

5210 REM* * 

5220 REM**************************************** 

5230 I=30957:E=0:PRINT"3?OUTINE 6:" 

5240 T=0 

5250 READ fl 

5260 IF A=-l THEN5380 

5270 IF A>255 THEN5313 

5280 T=T+fl:POKE I .fl 

5290 1=1+1 

5300 G0T05250 

5310 READ fl* 

5320 IF TOR THEN5350 

5330 PR I NTR* " . KD" 

5340 G0T05240 

5350 E=E+1 

5360 PRINTR*:T;fl 

5378 G0T0524S 

5380 IF EO0 THEN END 
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5390 POKES 1,0 :P0KE52. 112 
5408 P0KE55 . : P0KE56 , 1 1 2 : CLR : HEW 
5410 DATR169. 48, 141 .58,3,165,89 
R420 DRTH48.55.205.52.3.176.65 
5430 DflTR165,90,43,77,205.53.3 
5440 ORTfU 76, 87, 169, 0.133. 87. 133 
5450 DflTASS. 165.90.240,16,170,24 
5460 DRTR165 .87 . 109 .54 .3 . 133,87 
5470 DRTfl 144, 2, 230, 38. 202. 208, 241 
5480 DATR24, 165,87, 101 ,89,133.87 
5490 DRTR165 ,88 , 109,55,3, 133,88 
5500 DRTR96. 169.57.141 ,58,3,169. 
5510 DRTfl 7269, "LINES 3440 - 3530 " 
5520 DRTR0.133,89,141,56.3.76 
5530 DATR242, 120, 169,57, 141 ,58.3 
5540 DflTR173,52,3,133.89.141.56 
5558 DRTR3, 76. 242, 120, 169, 57, 141 
5560 DRTR58.3.169.0.133,90,141 
5570 DRTR57 , 3 , 76 , 242 , 1 20 . 1 69 , 57 
5580 DRTfll41,58,3,173,53,3.133 
5590 DRTR90,141,57,3,76,242,120 
5680 DRTR72,152.72,138.72.165.1 
5610 DRTR41, 254. 133. 1.169. 0.141 
5620 DRTR 6765. "LINES 3550 - 3640 " 
5630 DRTR56.3. 141 .57,3,173,52 
5640 DRTR3. 141 .54.3.233.40,141 
5650 DRTR52, 3, 173,53,3,233.25 
5660 DRTR141,53,3,76,159.121.72 
5670 DflTfll52.72.133,72,165,l,41 
5^80 DRTR254. 133. 1.169. 0.133. 87 
5690 DHTH173,55,3.133,38.169.32 
5700 DRTR160,0, 145,87, 136.208.251 
5710 DRTR230 .83 .165,38,201 . 1 12 ,208 
5720 DRTR239. 165. 1.9. 1.133,1 
5730 DRTfl 6966. "LINES 3660 - 3750 " 
5740 DRTR104 . 170 . 104 . 168, 104 .96 .72 
5750 DATH152.72.138,72,165,1,41 
5760 DRTR254 . 133 . 1 . 173 .56 ,3 . 133 
5770 DATflS9,173,57,3,133.90.32 
5780 DflTR237. 120, 169, 0,133. 89. 169 
5790 DRTR4 . 133 .90 . 162,23, 160,39 
5800 DRTR32.181 .122.177.87,145,89 
5810 DflTA177,94,145.96,136.16.245 
5820 DRTR24 , 1 65 . 87 , 1 89 . 54 . 3 . 1 33 
5330 DRTR87.144.2.230,88,24,165 

5R40 DHTfl 7374. "LINES 3770 - 3868 ' 
Sfe§8 DflTfl89 . 1 85 . 40 , 1 33 , 89 , 1 44 , 2 

5860 DflTfl230.90.202.288.214,165,l 

5370 DHTA9, 1,133, 1,104, 170, 104 

5830 DRTR168 , 104 .96 .72 . 152 .72 . 138 

5898 DRTA72. 165,1 .41.254,133,1 
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5900 0RTA173,56.3, 133,89, 173,57 
5910 DRTR3, 133,90 ,32,237, 120 , 169 
5920 DATA©, 133, 89, 169, 4, 133. 90 
5930 DATR162,23.160,39,32,181.122 
5940 DRTR177,89. 145.87. 177,96, 145 
5950 DRTfl 7424, "LINES 3880 - 3970 
5960 DHTR94 , 1 36 , 1 6 , 245 . 24 , 1 65 . 87 
5970 DRTR109,54.3.133,S7,144,2 
5980 DRTA230 , 88 , 24 . 1 65 , 89 , 1 05 , 40 
5990 DRTR 1 33 , 89 , 1 44 . 2 . 239 , 90 , 202 
6080 DRTR208, 214, 165, 1,9, 1.133 
6010 DATR1 ,104,170,104,168,104,96 
6020 DRTR72. 152.72, 138,72, 165,1 
6030 DRTR41, 254, 133,1 ,169.0,133 
6040 DRTfi89,133,90,24.166,91.165 

6059 DATA90 . 1 05 . 24 , 1 33 , 96 , 202 , 208 

6060 DATA 7421, "LINES 3990 - 4080 
6070 DRTR247, 76, 21 8, 121, 72, 152, 72 
6086 DRTA138, 72, 165, 1.41 ,254.133 
6090 DRTA1, 169, 0.133, 89, 133, 90 
6100 DRTA24,166,91,165,90,105,24 
6110 DRTR133, 90, 202, 208, 247, 76, 50 
6120 DRTA122, 165,87,133,94,165,89 
6130 DRTR133,96, 165,88.24, 105,80 
6140 DATA133,95, 165,90,24, 105,212 
6150 DRTR133,97,96 

6160 DATA 6744, "LINES 4100 - 4180 " 
RERDV. 
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MULTIPLE SCREEN DISPLAY 

The loader on pp. 156-61 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program is a demo of multiple page display and save. The- 
program is the Machine Code routines to set up and manipulate 
the screen. Up to six pages can be displayed and stored. 

PROGRAM STRUCTURE 

The following lines are of interest: 

60-70 : Limittop of memory and clearthe pointers. 

105-140 : Set screen and border colours and initialise 

pointers forthe large screen area. 
250-450 : Creates the six pages and awaits user input and 

command to move to next page. 
520-610 : Displays any of the six pages created. 
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1@ REM **#***##****#****##************# 

20 REM *DEMONSTRATION OF MULTIPLE * 

25 REM *SCREEN PAGE SAVE AND DISPLAY * 

38 REM *USING LARGE SCREEN ROUTINES. * 

35 REM *WILL SHVE LIP TO SIX SEPERRTE * 

40 REM *SCREEN PAGES. * 

50 REM ********#***#********#*********# 

60 POKE55,0:POKE56,88 

70 POKE51,0:POKE52.88:CLR 

80 REM 

90 REM INITIALISE VARIABLE POINTERS FOR 

95 REM LARGE SCREEN 

100 REM 

1 05 P0KE5328 1,12: POKE53280 . 1 2 

110 POKE320.40 

120 P0KE821 .150 

130 P0KE823,88 

140 SVS<31683) 

150 REM 

j. 60 REM 

170 REM 

180 REM CREATE SIX DEMONSTRATION SCREEN 

185 REM PAGES AND STORE FOR LATER 

196 REM RECALL. ENTER ANV TEXT OF VOUR 

195 REM OWN AND THEN PRESS 'HOME' 

206 REM TO SAVE THAT PAGE IN MEMORY. 

210 REM 

220 PR I NT "3" 

230 DATA"DEMO PAGE ONE", "DEMO PAGE TWO" 

235 DATA"DEMO PAGE THREE" 

240 DATA" DEMO PAGE' FOUR" , "DEMO PAGE FIVE" 

245 DATA"DEMO PAGE SIX" 

250 P0KE87.5:P0KEe8.5:SVS<29216> 

260 PRINT" SKREATE DEMONSTRATION PAGES AND" 

270 POKES? . 6 : P0KE88 .12: SYS < 292 1 6 > 

2S0 PRINT"as»3TORE IN MEMORY" 

290 POKES? , 10 :P0KE88 ,4:SYS<:29216> 

300 PR I NT "STRESS 'HOME' TO CREATE NEXT PAGE!" 

310 GETA*:IFR*=""THEN310 

320 IFR*O"B"THEN310 

330 PR I NT "3" 

340 F0RQ=1T0S 

350 fl=Q+48 

360 P0KE89 , : POKE90 . : P0KE9 1 . 39 : P0KE92 , 23 

365 POKE786.6:SYS<:29024> 

370 POKE87.10:POKE88.13:SYS<:29216> 

380 READA*:PRINTR* 

385 P0KE8?,2:P0KE88.2:SYS<:29216> 

390 GET A* : I FA*= " " THEN390 

400 IFfl*="S"THEN430 

410 IF R*OCHR*<:i3>THENPRINTft*: :GOTO420 
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415 PRINTfi**"WI": 

420 G0T0396 

43S POKES 1 . ! SVS < 3 1 38 1 > 

448 PRINT"3" 

450 NEXTQ 

460 REM 

470 REM 

480 REM 

500 REM DISPLAY ANY OF THE PREVIOUSLY 
505 REM CREATED SIX PAGES. 

510 REM 

528 POKE87.10:POKES8.5:SYS<29216> 

530 PRIHT"SU£iISPLRY DEMONSTRATION PAGESB" 

540 POKE 89^0 : P0KE96 . 23 : POKES 1 , 40 : P0KE784 . 32 

545 POKE786,6«SYS<28800> ,.„„„„< ~.o 

550 POKE 89 . : POKE90 , 24 : P0KE9 1 , 40 : P0KE784 . J2 

555 P0KE786. 6s SYS < 28800 > 

560 P0KE87, 23 i POKE88.0: SYS < 29216) 

570 PRINT" SfTP AGE # "; 

580 INPUT A 

590 IFA<1ORA>6THEH540 

600 P0KE91,R:SYS<31349> 

610 G0T0548 

READY. 
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THIS IS A SAMPLE SCREEN PRODUCED WITH 
WITH THIS PROGRAM AND STORED IN MEMORY 
FOR LATER RECALL. 

UP TO SIX SCREENS MAY BE KEPT IN 
MEMORY AT ONE TIME. 
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LARGE SCREEN 

The loader on pp. 156-61 should be loaded and run once before 
using this program. 

DESCRIPTION 

This program is a demo of the routines to control a large screen text 
area. It emulates some of the functions of a simple word 
processor, although the speed is restricted as the bulk of the 
program is written in Basic. 

PROGRAM STRUCTURE 



The lines of 
65-80 

120-150 
210-230 

270-320 
390-410 



450-520 
580-670 

710-800 
840-930 
970-1060 
1100-1160 
1190-1250 

1290-1390 
1430-1510 
1770-1910 



particular interest in the program are as follows: 
: Set the screen and border colours and limit the top 

of memory, then clear the pointers. 
: Initialisesthe pointers forthe large screen area. 
: Puts the cursor at the top left and sets up the 

control characters. 
: Scansforcursorcontrol inputs. 
: Scans for the F1 key. If pressed, highlights the C and 

allows access to the control options, which are: 

I - input data to the screen. 

0-output co the printer. 

D- delete the entire contents of large screen area. 
: Displays the control line. 
: This is the cursor control subroutine. This is the 

cursor up routine. 

This is the cursor left routine. 

This is the cursor right routine. 

This is the cursor down routine. 

This is the cursor home routine. 

Controls the input for the Control keys, F1 exits this 

mode. 
: Executes the large screen erase. 
: Routine to put data onto the large screen. 
: Routine to output contents of the large screen to 

the printer. 



166 



10 REM *************************** 

20 REM *DEMONSTRATION OF ROUTINES* 

25 REM *TO CONTROL LARGE SCREEN * 

30 REM *TEXT AREA. THE PROGRAM * 

35 REM *EMULATES SOME OF THE * 

40 REM *FUNCTIONS OF A SIMPLE * 

45 REM *WORD PROCESSOR SINCE MOST* 

50 REM *OF THE CODE IS WRITTEN IN* 

55 REM *BflSIC IT IS VERY SLOW * 

60 REM *************************** 

65 P0KE5328 1,12: POKE53280 . 1 2 : Z= 1 

70 P0KE55 , : P0KE56 , 39 

88 POKES 1 .6:POKE52.80:CLR 

90 REM 

100 REM INITIALISE POINTERS FOR LARGE SCREEN 

110 REM 

120 POKE820,32 

130 P0KE821.7? 

140 POKE823.80 

150 SYSC31083) 

1 60 LP=0 : CP=6 : CC=0 ! LC=0 : C=0 : P=0 

170 REM 

ISO REM PUT CURSOR AT TOP LEFT AND SET UP 

185 REM * CONTROL CHARACTERS 

190 REM 

200 PR I NT "3" 

2 1 6 P0KE89 . CP : POKE90 , LP : PQKE9 1.1: P0KE92 , 1 

215 P0KE7S6,1 :SYS<28960> 

226 POKE20 1 6 , 3 : P0KE26 18.4: POKE2026 . 9 : POKE2022 , 1 5 

230 GOSUB430 

240 REM 

250 REM GET CURSOR CONTROL INPUTS 

260 REM 

270 GETA*:IFAf~""THEN270 

280 IFA*="H"THENGOSUB560 

290 IFA*="H"THENGOSUB690 

300 I FA*= " II" THENGOSUB820 

310 IFft*=":T'THENGOSUB950 

320 I F A*= " 3" THENGOSUB 1080 

330 REM 

340 REM 'Fl' IS CONTROL KEY IF PRESSED 

345 REM THEN 'C ON CONTROL LINE 

350 REM IS REVERSED AND CONTROL OPTIONS 

355 REM ENABLED. THESE ARE: 

360 REM I -INPUT DATA TO SCREEN. 

365 REM -OUTPUT TO PRINTER 

370 REM D -DELETE ENTIRE LARGE SCREEN 

375 REM CONTENTS 

380 REM 

390 IFA*="«"THENPOKE2016 . 131 rGOSUBl 170 

400 POKE 197,255 
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416 GOTO230 

420 REM 

430 REM DISPLAY CONTROL LINE 

440 REM , _„„„,.. „ 

456 POKE89,8:POKE90,23:POKE91 . 38 : POKE t 84 , 67 

455 POKE786,7:SVS<23800> 

460 POKE87,24:POKE88.0:SVS<29216> 

470 PRINT" COLUMN LINE ; 

480 POKE87 . 24 : P0KE88 ,14: SVS < 292 1 6 > 

490 PRINTCC: 

500 P0KE87 . 24 : P0KE8S . 25 : S VS < 292 1 6 > 

510 PRINTLC; 

515 F0RDM=56256T05S295:P0KEDM.l :NEXT 

520 RETURN 

530 REM 

540 REM CURSOR CONTROL SUBROUTINES 

550 REM 

560 REM CURSOR UP 

570 REM 

580 LC=LC+1 :IFLO230RLC=23THENL=L+i 

590 IFLC>75THENLC=75 

600 IFL>50THENL=50 „„,,„„ , 

6 1 P0KES9 . CP : POKE90 , LP : POKES 1 , 1 : P0KE92 , 1 

615 POKE786,3:SVS<28960> 

620 LP=LC 

630 IFLC>22THENLP=22 

646 P0KE825,L 

650 SVS<!31173> „ . 

660 P0KE89 . CP : POKE90 , LP : P0KE9 1 , 1 : P0KE92 , 1 

665 P0KE786 . 1 : SVS < 28960 > 

670 RETURN 

680 REM 

690 REM CURSOR LEFT 

700 REM „ , 

710 CC=CC-1 :IFCC>390RCC=39THENC=C-1 

720 IFCC<!0THENCC=0 

730 IFC<0THENC=0 nn , 

740 P0KE89, CP:POKE90. LP: POKES 1. 1 :P0KE92,1 

745 P0KE786 , 6 : S VS < 28960 > 

750 CP=CC 

760 IFCO390RCC=39THENCP=39 

770 P0KE824.C 

780 SVS<31173> 

790 P0KE89 , CP : POKE90 , LP : P0KE9 1,1: P0KE9ii , 1 

795 P0KE786. 6s SVS < 28960 > 

800 RETURN 

810 REM 

820 REM CURSOR RIGHT 

830 REM 

840 CC=CC+1 :IFCO40ORCC=40THENC=C+1 

850 IFCO80THEHCC=80. 
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S60 IFO40THENC=40 

870 POKESSi . CP : POKE30 , LP : POKES 1,1: P0KE92 , 1 

875 P0KE786. 7 iSVSC 289665 

880 CP=CC 

890 IFCC>390RCC=39THENCP=39 

900 P0KE824,C 

910 SVSC31173> 

920 P0KES9 , CP : POKE90 , LP : POKES 1 . 1 : P0KE92 , 1 

925 POKE736,3iSVSC28960) 

930 RETURN 

946 REM 

950 REM- CURSOR DOWN 

960 REM 

970 LC=LC-1 :IFLC>220RLC=22THENL=L-1 

980 IFLC<0THENLC=S 

990 IFL<0THENL=0 

1000 POKE89,CP:POKE90,LP:FOKE91 . 1:P0KE92,1 

1 005 P0KE786 , 6 : SVS < 23960 > 

1010 LP=LC 

1020 IFLC>22THENLP=22 

1030 P0KE825,L 

1048 SVS<31173> 

1 050 P0KE89 , CP : POKE90 , LP ; P0KE9 1 . 1 : P0KE92 , 1 

1055 P0KE78S , 1 : SVS < 28360 > 

I860 RETURN 

1076 REM 

1080 REM CURSOR HOME 

1090 REM 

1 1 00 P0KE36 , CP : P0KES7 . LP : P0KE33 . 1 : P0KE89 , 1 

1105 P0KE786.1 :SVS';28968> 

1110 CC=0:C=0:CP=0:POKE824.C 

1120 LC=0:L=0:LP=0:POKE825,L 

1130 SVS<3ii73> 

1140 POKE89,CP:POKE90,LP:POKE91,1 :P0KE92,1 

1145 P0KE786,1 : SVS C 28960 > 

1150 RETURN 

1160 REM 

1170 REM INPUT CONTROL FUNCTION KEV - 

1175 REM PRESS 'Fl' TO EXIT CONTROL MODE 

1180 REM 

1190 GOSUB430 

1200 GETA* : IFA*=" "THEN 1200 

1210 IFA*="D"THEN1278 

1220 IFA*="I"THEN1410 

1230 IFA*="O"THEN1750 

1248 IFR#O"»"THEN1250 

1 245 POKE20 1 6 , 3 : FORQ= 1 TO 1 00 : NEXT : RETURN 

1250 GOTO 1190 

1260 REM 

1270 REM PERFORM LRRGE SCREEN ERASE 

1275 REM FUNCTION - 'CONTROL' AND 'D' 
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1280 REM 

1290 POKE2013.132 

1 300 P0KE87 . 24 : P0KE38 , : SVS < 292 1 6 > 

1310 PRINT" SBOELETE?*": 

1320 GETR*:IFR*=""THEN1320 

1330 lFfl*O"V"THEH1370 

1340 SVS<31124> 

1359 SVS<31173> 

1360 GOSUB1080 
1370 00SUB43B 

1380 POKE2016.3:POKE2018,4 

1390 RETURN 

1400 REM 

1410 REM PERFORM DRTFl INPUT FUNCTION - 

1415 REM 'CONTROL' RND 'I' 

1420 REM 

1430 POKE2020-137 

1440 GOSUB430 

1450 POKE 197. 255: REM REPEAT 

1460 GETfl*:IFR*=""THEN1460 

1470 IFR*="H"THENGOSUB560 : GOTO 1440 

1 4R0 I FFI*= " II" THENG0SUB69G : GOTO 1 440 

1 400 I FR*= " M" THENGOSUB820 : GOTO 1 440 

1S00 I FR*= " H" THENGOSUB950 : GOTO 1 440 

1510 I FB*= " 9" THENGOSUB 1 080 : GOTO 1440 

1520 REM 

1530 REM PRESS Tl' TO EXIT INPUT MODE 

1540 REM 

1=150 IFfl*O"«"THEH1560 „..„., 

1 555 P0KE2O 1 6 , 3 : POKE2020 , 9 : FORQ= 1 TO 1 00 : NEXT : RETURN 

lssfi F0RQ=1 TO 100: NEXT: RETURN 

1560 P0KE87.LP:P0KE88.CP:SVS<29216> 

1565 P0KE646,Z 

1570 PRINTfl*; 

1575 Z=PEEK<646> 

1580 SVSC31261> 

1590 IFCC=79THEN1620 

1600 GOSUB820 

1610 GOTO 1449 

1 620 CC=0 : CP=0 ! C=0 

1630 P0KE824.C 

1648 LC=LC+1:IFLC>22THENL=L+1 

1650 IFLC>75THENLC=75 

1660 IFL>50THENL=50 

1 670 P0KE39 . CP : P0KE90 . LP ! P0KE9 1 , 1 : P0KE92 , 1 

1675 POKE786.7:SVS<:28960> 

1680 LP=LC 

1690 IFLC>22THEHLP=22 

1700 P0KE825,L 

1710 SIS'-ZllTZy 

1 720 P0KE89 . CP : POKE90 , LP : P0KE9 1 , 1 : P0KE92 , 1 
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1725 POKE736.7:SVS<28960> 

1730 GOTO 1440 

1740 REM 

1756 REM OUTPUT CONTENTS OF LARGE SCREEN 

1755 REM TO PRINTER - 'CONTROL' RND 'O' 

1760 REM 

1779 POKE2022,143 

1780 0PEH4.4 

1790 FORQ=20480TO26558STEP82 

1800 F0RX=QTGQ+79 

1810 R=PEEK<X> 

1820 B=R 

1830 IFR<32THENB=fl+64 : IFR>63THENB=32 

1840 fl*=CHR*<B> 

1850 PRINT#4.R*.- 

I860 NEXTX 

1870 PRINT#4.CHR*<13>s 

1880 NEXTQ 

1890 CL0SE4 

1900 POKE2016.3:POKE2022.15 

1910 RETURN 

RERDV. 
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SCREEN SAVE AND READ 

The second section in the Display Management contains two Basic 
programs for saving the contents of the screen and reading the 
Screen Save back onto the screen, using a disk drive (they could be 
modified for cassette use). 

SCREEN SAVE 

The Screen Save program first opens a sequential file: 
OPEN 2,8,2,"@0 :DUMP,S,W" 

The '©'assumes one has already saved the file before. If there is 
no existing file then remove the '©'symbol. Two loops are set up. 
The first ( 1 024-1 943 in steps of 1 0) indicates the screen area to be 
saved to disk. Only the first 23 lines are saved, the last two lines 
have been reserved for command word entry. In other words on the 
last two lines one can execute the programs and save the screen 
contents without saving the commands. The variable A$ is 
initialised and the second loop (0 to 10) is set up. The next step is to 
store the contents of the screen into A$ in blocks of 10 and then 
output it to the disk. Before jumping back to read the next block A$ 
is again set to a null string. The colour is then output to the disk in 
exactly the same way using the colour locations for each character 
on the screen. Lastly the file is closed. 

SCREEN READ 

The Screen Read routine first sets the cursor on the 23rd line of the 
screen. The program then opens a sequential file, this is done with 
OPEN 2,8,2,"DUMP,S,R"; where 'DUMP' is a sample file name, S 
stands for sequential and R stands for read. Having opened the file 
the program executes a loop in steps of 10 (1024 to 1943 the first 23 
lines), using the array A$ to store the contents of the screen in 
blocks of 10. The colour is then read from the disk, and the same 
method used to set the correct colour data onto the screen using 
the colour memory. Finally, the program closes the file. 
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1 000@ 0PEN2 , 8 , 2 , " 80 : DUMP . S . M " 

10010 Fl*="" 

10029 FOR 1=1024 TO 1943 STEP 10 

10930 FOR J=0 TO 10 

10640 fl*=fl*+STR*<PEEK<I+J>;> + "," 

10050 NEXT J 

10060 fl*=LEFT*<FI*.LEN<fi*>-n 

10070 PRINT#2,R* 

10080 R*="" :NEXT I 

10090 FOR 1=55296 TO 56215 STEP 10 

10100 FOR J=0 TO 10 

10110 fl*=FI*+STR*<PEEK'<I+J)> + , ^" 

10120 NEXT J 

10130 fl*=LEFT*<fl*.L.EN<fi*>-l> 

10140 PRINT#2.R* 

10150 0*="" :HEXT I 

10160 CL0SE2 

REfiDV. 



10000 print" xmimmmm!mmmsgim n ■. o i m r<9> 

10010 OPEN 2,8,2, "DUMP. S.R" 

10020 FOR 1=1924 TO 1943 STEP 19 

10030 INPUT#2.R<0>,R<1> ,FK2> ,R<3> ,fl<4> ,R<5> ,R<6 
>.R<7>.fK8>.fK9> 

10040 FOR J=0 TO 9 

10050 POKEI+J,fl<J> 

10060 NEXT J.I 

10070 FOR 1=55296 TO 56215 STEP 10 

10080 INPUT#2,fi<0>,Ra>,8C2> .R<3> .fl<4> .R<5> ,fl<6 
>,fl<7>,R<8),R'C9> 

10090 FOR J=0 TO 9 
10100 POKEI+,T,flCJ> 
10110 NEXT J.I 
10120 CLOSE 2 
RERDV. 
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APPENDICES 
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APPENDIX A 














Screen Display Codes 








SET 1 


SET 2 


POKE 


SET 1 SET 2 POKE 


SET 1 


SET 2 


POKE 


@ 







[ 


27 


6 




54 


A 


a 


1 


£ 


28 


7 




55 


B 


b 


2 


] 


29 


8 




56 


C 


c 


3 


t 


30 


9 




57 


D 


d 
e 

f 


4 
5 
6 


<- 


31 
32 
33 


< 




58 


E 


SPACE 


59 


F 


! 


60 


G 


g 


7 


" 


34 


= 




61 


H 


h 


8 


# 


35 


> 




62 


I 


i 


9 


$ 


36 


? 




63 


J 


J 


10 


% 


37 


B 




64 


K 


k 


11 


& 


38 


a 


A 


65 


L 


I 


12 


- 


39 


m 


B 


66 


M 


m 


13 


( 


40 


B 


C 


67 


N 


n 


14 


) 


41 


H 


D 


68 








15 


• 


42 


H 


E 


69 


P 


P 


16 


+ 


43 


□ 


F 


70 


Q 


q 


17 




44 


D 


G 


71 


R 


r 


18 


- 


45 


a 


H 


72 


S 


s 


19 




46 


Q 


I 


73 


T 


t 


20 


/ 


47 


a 


J 


74 


U 


u 


21 





48 


a 


K 


75 


V 


V 


22 


1 


49 


□ 


L 


76 


w 


w 


23 


2 


50 


s 


M 


77 


X 


X 


24 


3 


51 





N 


78 


Y 


y 


25 


4 


52 


n 





79 


z 


z 


26 


5 


53 J 


□ 


P 


80 



177 



SET1 ! 


SET 2 


POKE 


SET 1 SET 2 POKE 


SET 1 SET 2 POKE 


♦ 


Q 


81 


1 


97 


a 


113 


□ 


R 


82 


H 


98 


H 


114 


a 


S 


83 


n 


99 


m 


115 


D 


T 


84 


D 


100 


c 


116 


Q 


U 


85 


□ 


101 


c 


117 


w 


V 


86 


m 


102 


a 


118 





w 


87 


□ 


103 


□ 


119 


a 


X 


88 


Q 


104 


n 


120 


a 


Y 


89 


B 105 


u 


121 


is 


z 


90 


□ 


106 


□ >/ 122 


BB 




91 


CB 


107 


ED 


123 


E 




92 


Q 


108 


a 


124 


m 




93 


H 


109 


H 


125 


@ 


£ 


94 


a 


110 


E 


126 


a 


s 


95 
96 


□ 
S 


111 
112 


s 


•127 


SPACE 





Codes from 128-255 are reversed images of codes 0-127. 
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APPENDIX B 

Screen Colour and Memory Map 



CHARACTER SET 
(bit 2 of $0001) 

= CHAR ROM 

1 = I/O ROM/RAM 



IE0O0 
SDCOO 
$D800 
tDOOO 



$8000 
(32768) 



- (65535)- 



CIA1,CIA2(S. Bus.P.U.P) 

155320; 



VIC II Chip sets 
this 16K block 
on power-up 



$4000 
(16384) 



$2000 
(8192) 



$0800 
J0400 



Colour Ram Nibbles 



VIC II, SID 

(53248) 



4KRAM 
-(49152)- 



BASIC 

INTERPRETER 

ROM 



-(4096OJ- 



BASIC 

User RAN 

(38912 Byles) 



— (2048) — 

Screen (IK) 
— (1024) — 



Workspace (IK) 
Processor Reg ($0/ 1) 



8KHIRAM 
(bit 1 of $0001) 
0= RAM 
1 = KERNAL ROM 



4KRAM 
maps to $D000 when 
bits041ol$0001 =0 



8K LO RAM 
(bit Oof $000 1) 

-• RAM 

1 = BASIC ROM 



EXROM 

8K ROM Cartridge 

maps here 



HI-RES Screen 
maps here 



Hl-RES Colour Table 
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COLOUR IN 


LISTINGS 


NORMAL 1 


1ULTI-CI 


BLACK 


n 





o 


WHITE 


INl| 


1 


9 


RED 


m 


2 


10 


CYAN 


k 


3 


11 


PURPLE 


ii 


4 


12 


GREEN 


Bi 


5 


13 


BLUE 


ran 
an 


6 


14 


YELLOW 


mi 


7 


15 


ORANGE 


'A 


8 


N/A 


BROWN 


PS 


9 


N/A 


LT. RED 


S3 


10 


N/A 


DK. GREY 


H 


11 


N/A 


MD. GREY 


53 


12 


N/A 


LT. GREEN 


II 


13 


N/A 


LT. BLUE 


H 


14 


N/A 


LT. GREV 


am 
m 


15 


N/A 



APPENDIX C 

ColourChart Codes 



180 



— I i l l l I I ) l l ll l l l LJJ__J_J_LL- 



Q 
X 

5 

z 

UJ 
GL 

Q. 
< 
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Si 



3 
O 

o 
o 
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BYTE #2 



BYTE #3 



BYTES 1,2,3 
BYTES 4,5,6 
BYTES 7,8,9 
BYTES 10,11,12 
BYTES 13,14,15 
BYTES 16,17,18 
BYTES 19,20,21 
BYTES 22,23,24 
BYTES 25,26,27 
BYTES 28,29,30 
BYTES 31 ,32,33 
BYTES 34,35,36 
BYTES 37,38,39 
BYTES 40,41 ,42 
BYTES 43,44,45 
BYTES 46,47,48 
BYTES49,50,51 
BYTES 52,53,54 
BYTES 55,56,57 
BYTES 58,59,60 
BYTES 61 ,62,63 



128 


64 


32 


16 


8 


4 


2 


1 


128 


64 


32 


16 


8 


4 


2 


1 


12S 


64 


32 


16 


8 


4 


2 


1 



















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































APPENDIX F 

Sprite Grid 
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28 


64 


32 


16 


8 


4 


2 


1 


BYTE#1 


















2 


















3 


















4 


















5 


















6 


















7 


















BYTE#8 





















128 


64 


32 


16 


8 


4 


2 


1 


BYTE#1 


















2 


















3 


















4 


















5 


















6 


















7 


















BYTE#8 





















28 


64 


32 


16 


8 


4 


2 


1 


BYTE#1 


















2 


















3 


















4 


















5 


















6 


















7 


















BYTE #8 



















APPENDIX G 

Character 8x8 Grid 
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INDEX 

Colour 5 

An in-depth explanation of producing colour displays on the 64. 

Graphics 29 

How to produce Hi-Res Graphics, plus Machine Code routines and 
demonstration programs. 

Sprites 7 1 

Theories behind the display of Sprites and user-defined characters 
plus programs for producing the Sprites and characters. 

Display Management 95 

A collection of Machine Code routines to make displaying 
Commodore 64 characters on the screen much easier. 

Appendix A 176 

Screen display 'POKE' codes: the characters achieved by POKEing 
certain values into the screen memory. 

Appendix B 179 

Screen colour and memory map 

Appendix C 1 80 

Chart colour codes: the colours achieved by POKEing values into 
the colour memory. 

Appendix D 181 

Screen memory grid. Useful for planning displays 

Appendix E 1 82 

Colour memory grid. Used in conjunction with Appendix D. 
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Appendix F 1 83 

Sprite grid. Used for planning Sprite displays. 
Appendix G 1 84 

Character grids. Used for planning user-defined characters. 
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